Integer Wert in hh:mm:ss umwandeln?

[3_of_8]

Delphi-Quellcode:

function foo(Value: Integer): String;
var h, m, s: Word;
begin
  DivMod(Value, 60, m, s);
  DivMod(m, 60, h, m);
  Result:=Format('%.2d:%.2d:%.2d', [h, m, s]);
end;

Ein besserer Funktionssname ist mir nicht eingefallen.

Du musst noch Math einbinden, damit das mit DivMod geht. Wenn du das nicht sowieso brauchst, kannst dus auch so machen, dann musst du es nicht einbinden:

Delphi-Quellcode:

function foo(Value: Integer): String;
var h, m, s: Word;
begin
  m:=Value div 60;
  s:=Value mod 60;
  h:=m div 60;
  m:=m mod 60;
  Result:=Format('%.2d:%.2d:%.2d', [h, m, s]);
end;