Hi,
das ist nur schnell hingepfuscht, müsste aber gehen:
Delphi-Quellcode:
function ms_to_time(ms: Integer): string;
var
hour, min, sec: Integer;
begin
hour := ms div (1000 * 60 * 60);
if hour > 0 then
ms := ms - (1000 * 60 * 60);
min := ms div (1000 * 60);
if min > 0 then
ms := ms - (1000 * 60);
sec := ms div 1000;
result := format('%2.2d:%2.2d:%2.2d',[hour, min, sec]);
end;