Auf Datumswechsel reagieren

[Jens Hartmann]

Hallo,

aber wie willst Du es dann ohne Timer realisieren. Irgendeine Komponente muss dir ja die arbeit abnehmen und prüfen ob das Datum noch aktuell ist.

Wenn Du es beim Programmstart durchführen willst, dann könntest Du das ja über den Timer.Interval lösen. In etwa so könnte es dann gehen.

Timer.Interval

Du legst beim Start den Interval bis zum nächsten Datumswechsel (24:00:00 Uhr) fest. Dann im TimerOn Ereignis den Interval auf 24 Stunden später.
Allerdings musst Du den Fehler im Timer berücksichtigen, der wird mit der Zeit aus dem Datumswechsel laufen. Daher vieleicht immer im TimerOn Ereignis neu mit

Delphi-Quellcode:

      SendEMailTimer1.Interval := MilliSecondsBetween(frac(StrToTime(TimeNow)), 
        frac(StrToTime(TimeSend)));

initialisieren.


Gruß Jens