So, das funzt jetzt soweit, um die Millisekunden auszurechnen, habe ich noch eine Zeile hinzugefügt und scheint auch richtig zu sein. Schaut bitte nochmal.
Aber wenn ich jetzt das Format ausgebe, dann zeigt er mir 3 Stellen an, wieso??
Delphi-Quellcode:
var
s, ms: Word;
Diff: Integer;
begin
Diff:=GetTickDiff(BPMStartTime, GetTickCount());
s:=Diff div 1000;
ms:=Diff mod 1000;
Form1.Caption:=Format('%.2d:%.2d', [s, ms]);
Danke für eure Hilfe