Mediaplayer: Tracklänge und Zeit HH:MM:SS

[DevilsCamp]

ich würde sie so unsetzen:

Delphi-Quellcode:

function ms_to_String(ms Integer): String;
var
  Std, Min, Sek : Integer;
  Seks : Integer;
begin
  Seks := ms div 1000;

  Sek := Seks mod 60;
  Min := Seks div 60;
  Std := Min div 60;
  Min := Min mod 60;

  Result := Format('%.2:%.2:%.2', [Std, Min, Sek]);
end;