Datum und Zeit vergleichen

[Blackheart]

Hallo Leute
Ich hab im Timer folgendes zu stehen

Delphi-Quellcode:

if  DateTimeToStr(Now) = ListBox1.Items[0]...

in der ListBox steht Datum + Zeit 06.04.2008 18:07:45
Showmessage wird auch angezeigt falls die Zeit erreicht is aber Ich
krieg die Shomessage nicht wieder geschlossen, wo liegt mein Fehler. :gruebel:

[Klaus01]

Hallo,
mit welchem Interval arbeitet der Timer?
Bist Du sicher, dass nur eine MessageBox erscheint
und nicht gleich einige mehr?

Grüße
Klaus

[Blackheart]

Erst mal dank für die Antwort hast recht ich hatte den Intervall erst auf 100 jetzt mal auf 1000 gesetzt dann kommt jede sec die Meldung.
Eigentlich prüfe Ich doch auf = dürfte doch dann nicht nochmal erscheinen oder bin ich da jetzt auf dem Holzweg.

[marabu]

Hallo,

die sicherste Methode zur Verhinderung des vorzeitigen Wiedereintritts in die Behandlungsroutine für das Ereignis OnTimer() sieht ungefähr so aus:

Delphi-Quellcode:

procedure TDemoForm.ClockTimer(Sender: TObject);
begin
  with Sender as TTimer do
  begin
    Enabled := False;
    // ...
    Enabled := True;
  end;
end;

Freundliche Grüße

[Blackheart]

Habs jetzt hinbekommen, hab noch eine Boolsche Variable eingebaut nun funzt es.
Dank Euch.