Ausgabe von QueryPerformanceCounter formatieren

[automatix]

Hallo!

Eine Möglichkeit:

Delphi-Quellcode:

var
  wert: Double;
  milli, sec, min, hour: Integer;
begin
  wert := (Stop - Start) / Freq;

  hour := Trunc(wert / 3600);
  min := Trunc((wert - (hour * 3600)) / 60);
  sec := Trunc(wert - (hour * 3600) - (min * 60)) mod 60;
  milli := Trunc(wert * 1000.0) mod 1000;

  Label1.Caption := Format('%02d:%02d:%02d:%02d', [hour, min, sec, milli]);

Grüße