Hallo Michael,
Also die kleinste Abtastrate (mit Standardkomponenten) ist 16 ms (ungefähr), aber das ist eher nebensächlich. Ich wollte halt nur gesagt haben, das der Timer nicht zwingend jede Millisekunde ausgeführt wird.
Zudem würde ich, wenn es nicht hundertprozentig eine Sekunde sein sollen (also 1,015 Sekunden würden auch gehen), würde ich statt ein TDateTime einfach GetTickCount also Cardinal nehmen.
Delphi-Quellcode:
var
LastTick : Cardinal;
procedure ...Timer(...
begin
if GetTickCount - LastTick >= 1000 then
begin
...
LastTick := GetTickCount;
end;
end;
Oder alternativ einfach das Intervall auf einer Sekunde belassen? Oder was spricht dagegen?
MfG
xZise