Stoppuhr

[Darkface]

jetzt hab ich die eigentliche Formatierung vergessen ^^:

Delphi-Quellcode:

//brauchen wir noch 4 variablen mehr :)
var mil,sek,min,stu:string;
begin
[...]

If millisekunden < 1000 Then begin
  If millisekunden < 10 Then mil:='000' +IntToStr(millisekunden) Else
  If millisekunden < 100 Then mil:='00' +IntToStr(millisekunden) Else
  mil:='0' +IntToStr(millisekunden);
end;

If sekunden < 10 Then sek:='0' +IntToStr(sekunden); 
end;

If minuten < 10 Then min:='0' +IntToStr(minuten); 
end;

If stunden < 10 Then stu:='0' +IntToStr(stunden); 
end;

Label1.Caption:=stu+':'+min+':'+sek+':'+mil;

MfG Darkface