Stoppuhr

[Darkface]

Und für die Formatierung...

Delphi-Quellcode:

var startWert,stopWert,verbratenenZeit,millisekunden,sekunden,minuten,stunden:integer; 

startWert := GetTickCount;
stopWert := GetTickCount;
verbratenenZeit := stopWert - startWert; 

millisekunden:=0;sekunden:=0;minuten:=0;stunden:=0;

While verbratenenZeit > 0 do begin
  millisekunden:=millisekunden + 1;

  If millisekunden = 1000 Then
  begin
    millisekunden:=0;
    sekunden:=sekunden+1;
  end;

  If sekunden = 60 Then
  begin
    sekunden:=0;
    minuten:=minuten+1;
  end;

  If minuten = 60 Then
  begin
    minuten:=0;
    stunden:=stunden+1;
  end;

  dec(verbratenenZeit);
end;

Nur getippt, ungetestet und sicher nicht der beste Weg ...