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
