tmediaplayer.position в нужном формате

← →
race1 (2004-08-05 14:48) [0]

procedure ; type HMSRec = record Hours: byte; Minutes: byte; Seconds: byte; NotUsed: byte; end; var Position: LongInt; LastTimeFormat: TMPTimeFormats; begin //LastTimeFormat := MediaPlayer.TimeFormat; MediaPlayer.TimeFormat := tfHMS; Position := MediaPlayer.Position; //MediaPlayer.TimeFormat := LastTimeFormat; lblMediaPosition.Caption := Format(lblMediaPosition.Hint, [HMSRec(Position).Hours, HMSRec(Position).Minutes, HMSRec(Position).Seconds]); end;

т.е. хочу узнать позицию, но в формате часы\минуты\секунды. в справке написано, что position возвращает позицию according с timeformat. чего-то незаметно...

кстати, если убрать пару комментариев, то эффект тот же

← →
race1 (2004-08-06 08:05) [1]

время возвращается видимо во фреймах, но не в нужном формате час\минута\секунда

← →
grom (2004-08-06 08:28) [2]

var h,m,s:Word;
---------------
MediaPlayer1.TimeFormat := tfMilliseconds;
h:=trunc((MediaPlayer1.Length)/(60*60000));
m:=trunc((MediaPlayer1.Length)/60000) mod 60;
s:=trunc((MediaPlayer1.Length)/1000) mod 60;
Label1.Caption:=Format("%.d:%.2d:%.2d",[h,m,s]);

tmediaplayer.position в нужном формате Найти похожие ветки