Datum Timer Mitternacht (CheckNewDay)

[FarAndBeyond]

@nahpets:

Danke für die Info...
Mir ist schon aufgefallen, dass mein erster Ansatz nicht zu gebrauchen ist, da er niemals zu 100% funzt.
Hatte gerade angefangen das komplett umzubauen und mal zu schauen ob der neue Ansatz besser ist...

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
 Begin
  labDate.Caption:= DateToStr(Now);
  timerTIME.Enabled:= True;
 End;

Procedure TForm1.timerTIMETimer(Sender: TObject);
  Var
   CheckNewDay: String;
 Begin
   // UpdateTIME
   CheckNewDay:= FormatDateTime('hh',Now);

    If CheckNewDay = '00'
    Then
     Begin
      If booDateUpdated
      Then Exit;

      labDate.Caption:= // Werte aktualisieren...
      booDateUpdated:= True;
     End
    Else booDateUpdated:= False;
 End;

Ich schau mir jetzt erstmal deinen Weg an...