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

[DeddyH]

Ich möchte nur einmal einwerfen, dass zuviele Timer kontraproduktiv sind.

[himitsu]

Jupp, da würde ich zustimmen.
Wieviele Timer sollen es wenn werden?

Im Prinzip kann man sowas auch mit nur einem Timer lösen,
- welcher in einem kleinerem Intervall läuft und man prüft jedesmal, ob etwas abgelaufen ist
- oder man sucht sich die Zeit bis zum nächsten Event raus, läßt den Timer dahin laufen und wenn es soweit ist, wird das abgearbeitet und die Zeit bis zum neuen nächsten Event wird verwendet


Wenn es schon mehrere Timer sind, dann könnte man statt des "Tags" eventuell auch die "Instanz" der Timer (den Sender) verwenden, denn es gibt ja eine Liste, worin man den Timer suchen kann.

[Jumpy]

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.