DateTime in DB Speichern, wird nur jeder 2 gespeichert WISO?

[Albi]

Hab die Lösung gefunden.

für alle die es interessiert.

Code:

Procedure TForm3.ExportInTxt(Sender: TObject);
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+';');
      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+';');
              if Form1.Query1.FieldCount-1 = Form1.Query1.FieldCount-1 Then
              Writeln(F, '');
              Form1.Query1.Next;
              LastID:= Form1.Query1.FieldByName('ID').AsInteger; //Merken der letzten ID (Primärindex)
              SetPrintTime;
           end;
    CloseFile(f);
end;

Procedure TForm3.SetPrintTime;
var i: Integer;
begin
    Form1.Query1.Locate('ID', LastID, []); //Letzte ID suchen
    Form1.Query1.Edit;
    Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
end;