DBGrid in txt speichern

[r_kerber]

Zitat von Albi:

Code:

  Writeln(F, 'Test1,Test2,Test3,Test4,Test5');

Das kannst Du auch noch variabel gestalten:    WriteLn (F, Table1.Fields[1].FieldName,',',Table1.Fields[2].FieldName,',',...);

[Albi]

Super, vielen Dank.

Jetzt geht es so, wie ich es haben will.

Eine Frage habe ich da aber noch, woher kommt das Wissen, saugt Ihr euch das den Fingern oder habt ihr solch gute Fachliteratur?

Erstaunlich, von Tag zu Tag lernt man mehr. Einfach super dieses Forum.

[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.

[Sharky]

Hai Albi,

wozu hast Du denn diese Zeile im Code?

Zitat von Albi:

Code:

 ....
  if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 Then
      Writeln(F, '');
 ....

Du prüfst dort immer ob eine Varialbe mit sich selber übereinstimmt. Da dies logischerweise der Fall sein muss kannst Du die Zeile auch weg lassen.

[r_kerber]

Zitat von Albi:

Eine Frage habe ich da aber noch, woher kommt das Wissen, saugt Ihr euch das den Fingern oder habt ihr solch gute Fachliteratur?

OH + Trial and Error.