GetTickcount in stunden minuten und sekunden???

[wb32]

Folgendes Problem:

Ich will anzeigen wielange mein programm läuft und verwende dazu Gettickcount...

Der Wert startzeit wird festgelegt wenn "Start" gedrückt wird.

Es wird zwar alles angezeigt, nur leider ohne die führende 0...

label3 zeigt 0:0:1 anstatt 00:00:01

man könnte es mit einer if then abfrage zu jedem wert lösen aber das geht doch bestimmt noch anders oder ????

z.b. die differenz von (laufzeit-startzeit) ist in milliskeunden -> umwandeln in stunden minuten sekunden mit führender 0...

Delphi-Quellcode:

procedure TForm1.countTimer(Sender: TObject);
const
  DAYS    : Integer = 1000 * 60 * 60 * 24;
  HOURS   : Integer = 1000 * 60 * 60;
  MINUTES : Integer = 1000 * 60;
  SECONDS : Integer = 1000;
var
 day, hour, min, sec : Integer;
begin
laufzeit := GetTickCount;
 hour    := (laufzeit-startzeit) div HOURS; //Stunden
 dec(laufzeit, hour * HOURS);
 min     := (laufzeit-startzeit) div MINUTES; //Minuten
 dec(laufzeit, min * MINUTES);
 sec     := (laufzeit-startzeit) div SECONDS; //Sekunden
 label3.Caption:=(IntToStr(hour)+':'+IntToStr(min)+':'+IntToStr(sec));
end;

[edit=sakura]Delphi-TAGs gesetzt. Nächstes Mal bitte selbst tun Mfg, sakura[/edit]

[Duffy]

Hallo wb32,
anbei mal ein Codefragment wie es gehen könnte. Als Grundlage hat mir der Beitrag Sekunden in Zeit umwandeln gedient.

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Start, Stop: Integer;
begin
  Start := GetTickCount;
  Sleep(10000);
  Stop := GetTickCount;
  ShowMessage(TimeToStr((Stop - Start) * (1 / 24 / 60 / 60 / 1000)));
end;

bye

[wb32]

vielen dank funzt super