Registriert seit: 11. Feb 2003
Ort: Trittau
3.538 Beiträge
Delphi XE Professional
|
13. Jun 2003, 19:46
Nur mal so auf die Schnelle (ungetestet) als Anregung:
Delphi-Quellcode:
var
F: TextFile;
begin
AssignFile (F, 'Dateiname');
Rewrite (F);
Table1.Open;
Table1.First;
repeat
WriteLn (F, Table1.Fields[1].AsString,',',Table1.Fields[2],',',...)
Table1.Next;
until (Table1.EOF);
Table1.Close;
CloseFile(F);
end
;
|