Hi,
hab mal wieder ne Frage,
Ich möchte die Daten aus meiner
Paradox Datenbank in eine
CSV Datei schreiben.
Habe in einem Forum folgenden Code gefunden und entsprechend angepasst um Daten
in die
CSV Datei zu schreiben, aber es wird nur der erste Datensatz geschrieben.
Delphi-Quellcode:
procedure ....
var
f: Textfile;
Ziel, Datensatz : String;
Anzahl:integer;
zahler:integer;
begin
Anzahl:=TableExport.recordcount;
showmessage(inttostr(Anzahl));
TableExport.FindFirst;
FlatGauge1.MaxValue:=anzahl;
if SaveDialog1.Execute then begin
Ziel := SaveDialog1.FileName;
for zahler:= 0 to Anzahl do
begin
Datensatz := DBEdit1.text + ';' +
DBEdit2.text;
FlatGauge1.Progress:=zahler;
TableExport.FindNext;
end;
AssignFile(f, Ziel);
try
if FileExists(Ziel) = False then begin
Rewrite(f);
Writeln(f,'"TITEL1","TITEL1"');
end else begin
Reset(f);
Append(f);
end;
Writeln(f, Datensatz);
finally
CloseFile(f);
end;
end;
end;
Was ist da falsch?
Das muss ja hier irgendwo begraben liegen
Delphi-Quellcode:
for zahler:= 0 to Anzahl do
begin
Datensatz := DBEdit1.text + ';' +
DBEdit2.text;
FlatGauge1.Progress:=zahler;
TableExport.FindNext;
end;