timer parallel?

[BenjaminH]

Wenn das Sekundenwerte sein sollen, dann wird es dass beste sein, um nicht Abfragen zeitgleich zu machen, einen Timer, der jede Sekunde anspringt zu nehmen und darin die vergangene Zei zu zählen und immer wenn sie ein vielfaches von 2 oder 4 ist anzuspringen und jeweils das passende zu tun, so wird das zwar nacheinander, aber auch zum (fast) richtigen Zeitpunkt gemacht:

Delphi-Quellcode:

If (Time mod 4)=0 Then
Begin
    Abfrage1..
End;
If (Time mod 2)=0 Then
Begin
    Abfrage2..
End;
Inc(Time);