Format für Zeit ändern

[Larsi]

Hi,

ich habe folgenden Code welcher als Variable Sekunden erwartet und diese dann in Sekunden, Minuten und Stunden umrechnet.

Hier der Code:

Delphi-Quellcode:

var
  Hour, Min, Sec, MSec : Word;
begin
i := i + 1;
DecodeTime(IncMilliSecond(StrToTime('00:00:00'), i*1000),Hour,Min,Sec,MSec);
end;
statusbar1.Panels.items[1].Text := inttostr(hour) + ':' + inttostr(Min) + ':' + inttostr(Sec);
end;

Jedoch sieht die Zeit bspw. so aus:

0:1:20

Wie kann ich da zwei Nulllen anzeigen also das die Ausgabe so aussieht:

00:01:20?

MFG Larsi

[BUG]

Nicht getestet:

Delphi-Quellcode:

var
  Hour, Min, Sec, MSec : Word;
begin
i := i + 1;
DecodeTime(IncMilliSecond(StrToTime('00:00:00'), i*1000),Hour,Min,Sec,MSec);
end;
statusbar1.Panels.items[1].Text := Format('%.2d:%.2d:%.2d', [Hour, Min, Sec]);
end;

MfG,
Bug

[DeddyH]

Das sieht mir irgendwie umständlich aus.

Delphi-Quellcode:

inc(i); //eine Sekunde dazu, richtig?
statusbar1.Panels.items[1].Text := Format('%.2d:%.2d:%.2d', [i div 3600, i mod 3600 div 60, i mod 60]);

Auch ungetestet, sollte aber IMO klappen.

[Larsi]

Danke DeddyH :) Funktioniert!