TTimer auswerten??

[Sebastian Nintemann]

Hallo Privateer3000, um solche Zeitmessungen zu machen nutze ich immer die Funktion GetTickCount, welche die Millisekunden seit Systemstart wiedergibt. Ist das gleiche Prinzip das sakura schon angesprochen hat, ich finde es nur übersichtlicher weil es direkt in Millisekunden ist. Nicht so genau, aber normalerweise reichts, jedenfalls für meine Zwecke, da der Timer sowieso nicht auf die Millisekunde genau ist müsste es auch für dich reichen.

Delphi-Quellcode:

//...
var
  NextEvent: DWORD;
//...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  NextEvent := GetTickCount + Timer1.Interval;
  //...
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := 'Noch '+IntToStr(NextEvent-GetTickCount)+'ms'
end;

PS: Nach 49,7 Tagen könnte es für ein sehr kurze Zeit zu einem merkwürdigen Ergebnis kommen

Gruß, Sebastian