für minuten hab ich das ein fach so gemacht
Delphi-Quellcode:
function time (zeit : Integer): string;
var allsec: real;
minute,second: integer;
begin
if zeit >=1000 then begin
allsec := zeit / 1000;
minute := round(allsec) div 60;
second := round(allsec) mod 60;
if second < 10 then
Resul t:= inttostr(minute) + ':0' + inttostr(second)
else
Result := inttostr(minute) + ':' + inttostr(second);
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := time(MediaPlayer1.Position);
end;
für stunden müssteste noch paar if-schleife in in funktion oben einbauen.