DBGrid in txt speichern

[Albi]

Hab es hinbekommen.

Code:

var 
  F: TextFile; 
begin 
  AssignFile (F, 'Dateiname'); 
  Rewrite (F); 
  Table1.Open; 
  Table1.First; 
  Writeln(F, 'Test1,Test2,Test3,Test4,Test5'); 
  repeat 
    WriteLn (F, Table1.Fields[1].AsString,',',Table1.Fields[2],',',...) 
    Table1.Next; 
  until (Table1.EOF); 
  Table1.Close; 
  CloseFile(F); 
end

So sieht der Code aus und es funktioniert wunderbar, so wie ich es mir vorgestellt habe.

Danke

Mfg

Micha