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.