Hm, dann habe ich da was verwechselt. Dieser Code liefert mir die Gesamtlänge, um die es meiner Interpretierung nach, hier geht.
Delphi-Quellcode:
function TfrmMain.DurationMinSec(Sekunden : String) : String;
var Min, Sec : integer;
SecToTime : string;
begin
Min:= StrToInt(Sekunden) div 60;
Sec:= StrToInt(Sekunden) - Min * 60;
SecToTime:= Trim(Format('%2d:%.2d', [Min, Sec]));
result:= SecToTime;
end;
[...]
DurationMinSec(IntToStr(fFiles[playindex].Dauer))
Die Dauer lese ich dem Anschein nach aus den Tags aus.