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]