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.