Einzelnen Beitrag anzeigen

Albi

Registriert seit: 4. Mai 2003
Ort: Berlin
458 Beiträge
 
Delphi 7 Professional
 
#3
  Alt 1. Jul 2003, 19:11
Ne, ich verwende das so. Sollte man dies nicht machen? Ich habe jetzt auch ne Lösung für mein Problem gefunden. Für jeden denes interessiert oder Verbesserungsvorschläge hat. (ist der Code für SetTimePrint)

Code:
Form1.Query1.Prior;
  Form1.Query1.Edit;
  If Form1.Query1.RecNo = Form1.Query1.FieldCount-1 Then
    begin
      Form1.Query1.Last;
      Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
    end
  else
    Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
end;
Jetzt besteht nur noch das Problem, das der erste DS immer 2 x in die Txt geschrieben wird.

Der Fehler trat daher auf, das durch das Query1.Next schon immer einen DS weitergesprungen wurde und somit logischer Weise immer 1 DS ausgelassen wurde.
  Mit Zitat antworten Zitat