Textdatei erstellen / Umsetzung

[Grolle]

Hallo!!!
Über Checkboxen sollen bestimmt Felder einer Datenbank in eine Textdatei
geschrieben werden. Hier der Quelltext:

Delphi-Quellcode:

begin
  SaveDialog1.FileName := pfad;
  if SaveDialog1.Execute then
  begin
  assignfile (f, SaveDialog1.FileName+'.txt');
 rewrite(f);
 Form1.table1.first;
while not Form1.table1.eof do
 begin
  Form1.table1.Indexname:='auswahlname';
  if CheckBox1.Checked = true then
  s:='' + Form1.Table1.FieldByName('Name').AsString +','+
  if CheckBox2.Checked = true then
  '' + Form1.Table1.FieldByName('Name').AsString +','+#13#10;
  WriteLn(f, s);
  Form1.table1.next;
 end;
 closefile(f);
 end;

Das mit der zweiten if Abfrage funktioniert so natürlich nicht.
Ich steh irgendwie auf'm Schlauch :lol:

[sniper_w]

Hmm..hab nicht ganz verstanden...
Vielleicht so ?

Delphi-Quellcode:

while not Form1.table1.eof do
begin
  Form1.table1.Indexname:='auswahlname';
  if CheckBox1.Checked = true then
             s:=' ' + Form1.Table1.FieldByName('Name').AsString ;
  if CheckBox2.Checked = true then
            s := s + ',' + Form1.Table1.FieldByName('Name').AsString +','+#13+#10;
  WriteLn(f, s);
  Form1.table1.next;
end;

[Grolle]

Ganz genau ! :thumb: