Mediaplayer Spielzeit richtig anzeigen

[Dragon27]

Hallo,

habe ein kleines Rechenproblem....

Ich würde gerne in Minuten und Sekunden anzeigen lassen wie weit mein Mediaplayer schon gespielt hat bzw. was er noch zu spielen hat.

Code:

label2.Caption:=inttostr(mediaplayer1.TrackLength[0])+'/'+inttostr(mediaplayer1.Position);

Wie muss ich das bitte umändern dass ich da Stunden, Minuten und Sekunden bekomme.

Danke für Eure Hilfe!

[Garfield]

Delphi-Quellcode:

MediaPlayer1.TimeFormat := tfHMS;
PosMedia := MediaPlayer1.Position;

PosMedia ist ein LongInt.

Delphi-Quellcode:

HMSRecord = record
  Hours   : byte;
  Minutes : byte;
  Seconds : byte;
  NotUsed : byte;
end;

with HMSRecord[PosMedia] do
  Label2.Caption := IntToStr(Hours) + ':' + IntToStr(Minutes) + ':' + IntToStr(Seconds);

So was ähnliches müsste auch in der Hilfe von Delphi stehen.

[Birzenbae]

also ich hab das so gelöst

Delphi-Quellcode:

function time(zeit:integer): string; //funktion für zeitausgabe in minuten und sekunden
var allsec,
    second,
    minute: Integer;
begin
allsec:=zeit div 1000;
minute:=allsec div 60;
second:=allsec mod 60;
if second<10 then
Result:=inttostr(minute)+':0'+inttostr(second)
else
Result:=inttostr(minute)+':'+inttostr(second);
end;

//das muss in Timer rein
Label2.Caption:=time(Mediaplayer1.Position);

is vll. nicht die eleganteste art aber es funktioniert