Delphi-PRAXiS - Delphi TTimer, der millisekundengenau startet

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi TTimer, der millisekundengenau startet (https://www.delphipraxis.net/59778-ttimer-der-millisekundengenau-startet.html)

TTimer, der millisekundengenau startet

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

Re: TTimer, der millisekundengenau startet

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

Delphi-Quellcode:

Sleep(1000 - MilliSecondOf(Time));

Man kann es sich auch unnötig schwer machen... :wall:

Gruß,
ManuMF