Ausgabe von QueryPerformanceCounter formatieren

[Mackhack]

Hallo DPler,

wie bekomme ich die Zeit die QueryPerformanceCounter mir gibt in ein Format das folgendermassen aussieht:
00:00:00:00

Die Ausgabe bisher erfolgt so so:

LblTime.Caption := Format('%3.3f', [((Stop - Start) * 1000) / Freq]); Aber das gefaellt mir nicht!

Danke!

[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

[Mackhack]

Danke!

[taaktaak]

Ist da der Finger verrutscht? Muss doch
Format('%.2d:%.2d:%.2d:%.2d', [hour, min, sec, milli]); sein, oder?