DBGrid in txt speichern

[Albi]

Ich habe jetzt eine besser Lösung gefunden, wo man das viele schreiben bei einer großen Table spart, für alle die es interessiert.

Code:

ar i: integer;
    F: TextFile;
begin
assignFile (f,'test1.txt');
rewrite (f);
Form1.Query1.First;
while not Form1.Query1.EOF do
begin
  for i:=0 to Form1.Query1.FieldCount-1 do
  Write(F, Form1.Query1.Fields[i].asstring+';');
    if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 Then
      Writeln(F, '');
  Form1.Query1.Next;
end;

Anstatt von Query kann da auc Table stehen. Das Ergebnis in der TextFile sieht dann so aus

Zitat:

92;;Edit1;Edit2;0;0;0;;13.06.2003 19:05:12;
91;;Edit1;Edit2;0;0;0;;13.06.2003 19:05:04;
90;;Edit1;Edit2;0;0;0;;08.06.2003 07:11:09;
85;;Edit1;Edit2;0;0;0;;05.06.2003 07:08:54;
86;;Edit1;Edit2;0;0;0;;06.06.2003 06:49:05;
87;;Micha;Michael;1;1;1;;07.06.2003 07:21:15;
82;;Michael;Rückert;0;0;;;;
81;;Rückert;Michael;1;;;;;
83;;Zausel;Zerna;1;0;0;1;;
88;;ad;Edit2asda;0;0;0;;08.