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;