die Funktion arbeitet mit Millisekunden. Wenn Mediaplayer.length Sekunden sind brauchst du einfach nur die erste zeile nach dem "begin" rausnehmen
Delphi-Quellcode:
function getTimeToDisplay(wert: Cardinal;withhour: Boolean = False): String;
var stunden, minuten, sekunden: Integer;
begin
wert := wert div 1000; //bei Sekunden die Zeile raus
stunden := wert div 3600;
wert := wert - wert div 3600 * 3600;
minuten := wert div 60;
wert := wert - wert div 60 * 60;
sekunden := wert;
if (Stunden = 0) and (withhour = False) then
result := formatfloat('00', minuten) + ':' + formatfloat('00', Sekunden)
else
result := inttostr(Stunden) + ':' + formatfloat('00', minuten) + ':' + formatfloat('00', Sekunden)
end;