Einzelnen Beitrag anzeigen

Albi

Registriert seit: 4. Mai 2003
Ort: Berlin
458 Beiträge
 
Delphi 7 Professional
 
#5
  Alt 2. Jul 2003, 05:19
Das geht doch im Moment nicht anders, ich weiß zumindest keine andere Lösung.

Aber das muß ich daher machen, das er mir die Daten in der DB richtig speichert. Wenn ich das nicht so mache, dann wird nur in jeder 2ten Zeile das Datum/Uhrzeit in die DB eingetragen. Also muß ich immer wieder einen DS zurück Datum/Uhrzeit schreiben und anschließend wieder 1 DS vor um auf dem richtigen DS zu landen, so das dann der richtige DS wieder in *.Txt geschrieben wird.

Ich hoffe, das ist verständlich gewesen.

Hier mal der komplette Code mit der in die Daten in die Txt schreibe:

Code:
var i, j: Integer;
begin
    assignFile (f,'SerienTxt.txt');
    rewrite (f);
      Form1.Query1.First;
      For j:= 0 To Form1.Query1.FieldCount-1 DO
      Write(f, Form3.DBGrid1.Fields[j].FieldName+';'); //Feldnamen in Txt schrieben
      Writeln(f,'');
        while not Form1.Query1.EOF do
          begin
            for i:=0 to Form1.Query1.FieldCount-1 do
              Write(F, Form1.Query1.Fields[i].asstring+';'); // Felder in txt schreiben
              if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 // wenn Zeile zu Ende, dann Zeilenumbruch Then
              Writeln(F, '');
              Form1.Query1.Next;
              SetPrintTime; //Procedure siehe vorheriger Beitrag
          end;
    CloseFile(f);
end;
Nun gib es halt nur noch das Problem, das er 1te DS doppelt verarbeitet wird, da ich beim ersten 1ten DS einen zurück gehe und wieder vor, somit lande ich wieder auf gleichen.
  Mit Zitat antworten Zitat