Eine Uhrzeit vergleichen

[H4ndy]

Ich hab' das folgendermaßen gelöst:

Delphi-Quellcode:

 
...
// global deklarieren: FAlreadyDone: boolean;
// im Form.OnCreate: FAlreadyDone := false;
...
// Timer.OnTimer:
var h,m,s,ms: word;
    h2,m2,s2,ms2: word;
begin

  DecodeTime(Now,h,m,s,ms);
  // das folgende ist ein TimeEdit, hier muss also deine Routine rein,
  // wie du an die Zeit deines Edits kommst (z.B. DecodeTime(StrToTime(Edit1.Text),h2,m2,s2,ms2); )
  teAutoDBRefreshTime.DecodeTime(h2,m2,s2,ms2);

  // ich vergleiche nur Stunden und Minuten
  if (h = h2) and (m = m2) then begin
    if not FAlreadyReloaded then begin
      FAlreadyReloaded := true;
      
      // HIER AUSZUFÜHRENDER CODE HIN

    end;
  end else begin
    // erst wieder freigeben wenn die Zeit nicht mehr stimmt,
    // da der Timer ja mehrmals in der angegeben Zeit anschlagen wird
    FAlreadyReloaded := false;
  end;
end;

(Edit: Ist vorallem für wiederkehrende Dinge praktisch. Ich benutze die Methode um
jeden Tag zur gewünschten Uhrzeit was auszuführen)