Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
Delphi 7 Professional
|
Re: Zu einer bestimmten Uhrzeit Aktion ausführen!
31. Okt 2003, 11:34
Also, wenn schon Timer, dann würde ich so ansetzen:
Beim Start des Programms Prüfen, wie lange es noch bis zum nächsten Ereignis ist. Die Zeit des Timers auf einen Wert <Ereigniszeit> - now - 10% ( TTimer ist nicht sehr genau, daher 10 % ) setzen und Timerstart. Im Timerereignis prüfen, ob der Zeitpunkt überschritten ist. Wenn ja: Äktschn; wenn Nein: wieder Timerzeite:= <Ereigniszeit> - now - 10%. Und so weiter... Vielleicht könnte man noch bei einer "Entfernung" von der Ereigniszeit < 1 Minute die 10 % weglassen.
Jedenfalls wird auf diese Weise das Timereignis in einem 10 Std. Zeitraum vielleicht 3 bis 5 mal durchlaufen. Bei einer festen Timerzeit von 1 sek wären es 36.000 mal.
Achja, der Vergleich sollte auf jeden Fall mit den Datetime-Werten passieren, nicht mit Strings. Und dann mit ">" nicht mit "=".
Allerdings kann das mit den Timern nicht das Optimum sein. Bestimmt geht das auch irgendwie mit den Ticks, nur hab ich damit noch nie was gemacht.
|