TTimer, der millisekundengenau startet

[ManuMF]

Hallo,

ich programmiere gerade einen Countdown. Das ganze mache ich mit einem TTimer. Jetzt habe ich folgendes Problem: Der Timer soll passend zur Zeit laufen, d.h. er soll "timern" , wenn gerade eine volle Sekunde erreicht wurde.

Momentan habe ich das so realisiert:

Delphi-Quellcode:

while (MilliSecondOf(Time) <> 0) do
  sleep(0);

Timer.enabled := true;

Das funktioniert auch meistens, aber ab und zu dauert zu lange ( > 30 Sekunden).

Gibt es da vielleicht eine elegantere Lösung?

Danke,
ManuMF

[ManuMF]

So, nach einer kleinen Pause und etwas frischer Luft habe ich jetzt selbst eine Lösung erstellt:

Sleep(1000 - MilliSecondOf(Time)); Man kann es sich auch unnötig schwer machen...

Gruß,
ManuMF