So wie die Daten am Bildschirm ausgegeben werden, so kannst du sie auch in eine Datei wegschreiben. Wenn es nur wenige Datensätze sind, dann geht das bequem so:
Delphi-Quellcode:
var
s,
csv: TStrings;
begin
csv := TStringList.Create;
s := TStringList.Create;
// die Query braucht eine Connection
with ADOQuery
do
begin
SQL.Text := '
select * from tabelle';
Open;
while not Eof
do
begin
s.Clear;
for i := 0
to Pred(FieldCount)
do
// hier besser den Feldtyp auswerten
s.Add(Fields[i].AsString);
csv.Add(s.CommaText);
Next;
end;
Close;
end;
s.Free;
csv.SaveToFile('
c:\temp\test.txt');
csv.Free;
end;
Bei zu großen Datenmengen belastet das aber den Hauptspeicher zu sehr. Da ist dann ein Stream besser - Stichwort TFileStream.
marabu