Komme nicht weiter mit Zeitvergleichen?

[Sir Rufo]

Zitat von AlexII:

Wusste gar nicht, dass einfach zwei Zeiten zu vergleichen so kompliziert ist.

Ist es ja auch nicht ... aber es gibt halt Milliarden falsche Wege und nur wenig richtige Wege.

Um auf das kleine Beispiel mit dem Wecker zu kommen, das geht so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender:TObject);
begin
  if Frac( Now ) >= StrToTime( '15:00' ) then
    begin
      Timer1.Enabled := False;
      ShowMessage( 'Jetzt sollte ich Dich wecken!' );
    end;
end;