各位高手: 我在编写一个MP3播放器程序时,为了获取歌曲播放的当前时间,写了如下代码: procedure TForm1.Timer1Timer(Sender: TObject); var m,s:byte; begin if form1.MediaPlayer1.Mode=mpplaying then begin form1.MediaPlayer1.TimeFormat:=tfhms; m:=mci_hms_minute(form1.MediaPlayer1.Position); s:=mci_hms_second(form1.MediaPlayer1.Position); form1.Label1.Caption:=format('%dm:%ds',[m,s]); end; end; 但是显示的时间分和秒位置相反,比如'4:20'显示为'20:4',而且秒数还超过60,不知道哪里错了,请大家指教.
----------------------------------------------
-
if form1.MediaPlayer1.Mode=mpplaying then begin form1.MediaPlayer1.TimeFormat:=tfMilliseconds; m:=form1.MediaPlayer1.Position div (1000*60) mod 60; s:=form1.MediaPlayer1.Position div 1000 mod 60; form1.Label1.Caption:=format('%dm:%ds',[m,s]);