Ganz simple Stoppuhr!

[Qnkel]

Moin,

Ich stand gerade vor dem Problem, dass ich ne Uhr brauche, die bei meinem Proggi mitläuft. Nachdem ich mir hier die Posts angesehen habe war ich nich viel schlauer als vorher.

Jetzt habe ich mir sowas gebastelt:

Delphi-Quellcode:

var
  Zeit: TTime;

Procedure Button1Klick
begin
  Zeit := Time; //aktuelle Zeit
  Timer1.Enabled := True;
end;

Procedure Timer1Timer
begin
  //Tu hier was
  Label1.Caption := TimeToStr((Time - Zeit));
end;

So ungefähr. Timer1 hat bei mir n Delay von 1ms, da es bei mir noch was macht (Zufallszahlen erzeugen)...

Das Ergebnis is im Format hh:mm:ss