Länge des Lied richtig darstellen

[H4ndy]

Ich hatte mir die Umrechnung selber geschrieben:

Delphi-Quellcode:

function zeitformat(ms:integer):string;
const
  MINUTES : Integer = 1000 * 60;
  SECONDS : Integer = 1000;
var
  min,sec:integer; minStr,secStr:string;
begin
  min := ms div MINUTES;
  dec(ms,min * minutes);

  sec := ms div SECONDS;

  if min < 10 then
    minStr := '0' + IntToStr(min)
  else
    minStr := IntToStr(min);
  if sec < 10 then
    secStr := '0' + IntToStr(sec)
  else
    secStr := IntToStr(sec);

  zeitformat := minStr + ':' + secStr;
end;