Hi,
Zitat von
BenjaminH:
Delphi-Quellcode:
procedure Tfrm_timer.Timer1Timer(Sender: TObject);
begin
iTime := iTime + 1;
l_Time.Caption := Format('%d.2',[iTime div 3600]) + ':' + Format('%d.2',[iTime div 60]) + ':' + Format('%d.2',[iTime mod 60]);
end;
%d.2 war wohl eher nicht gemeint (Ergebnis z. B. 5.2 statt 05), außerdem reicht ein Format-Aufruf aus.
Besser so:
Delphi-Quellcode:
iTime := iTime + 1;
l_Time.Caption := Format('%.2d:%.2d:%.2d',[iTime div 3600, (iTime div 60) mod 60, iTime mod 60]);
Mfg
FAlter