Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
 
Delphi 6 Enterprise
 
#6

AW: Prezedur weitere Parameter als Sender: TObject übergeben und dynamische Timer

  Alt 3. Jul 2012, 08:47
Um DeddyH's [Edit]und himitsu's[/Edit] Einwurf zu konkretisieren:
Sagen wir du möchtest, dass alle 20 Sekunden etwas passiert, alle 55 Sekunden etwas anderes und alle 127 Sekunden wieder was anderes.

Du könntest dann einen Timer nehmen, der jede Sekunde einmal zuschlägt. Im OnTimer-Event zählst du dann eine (globale) Variable hoch und prüftst ob du eine der gewünschten Zeiten erreicht hast, z.B. via Modulo.
So musst du dich nicht kümmern, welcher Timer zugeschlagen hast, must keine weitere Info via Tag mitgeben, oder sonstwas, einfach im OnTimer:

Delphi-Quellcode:
Inc(Zeit) //Zeit soll die globale Variable sein
if zeit mod 20 = 0 then
  //tu was
if zeit mod 77 = 0 then
  //tu was anderes
if zeit mod 127 = 0 then
  //tu nochmal was anderes
Ich hab jetzt extra kein "else if" genommen, für den Fall das z.B. alle 20 und alle 60 Sekunden was passieren soll, denn dann sollten ja bei z.B. 120 Sekunden beide Fälle abgearbeitet werden.
Ralph
  Mit Zitat antworten Zitat