标签: tmediaplayer

我正在使用 Delphi 10.3 开发 Android 移动应用程序。我正在使用 TMediaPlayer 播放 mp3 文件。我想显示当前时间和当前播放的媒体文件的剩余时间，包括分钟和秒（mm:ss - 参考：VLC 媒体播放器）。但我可以正确显示分钟，并且我想用两位数显示秒。

请帮助我正确显示秒数。

在这里，我提到了我尝试过的代码。

procedure Timer1Timer(Sender: TObject);
begin
  TrackBar1.Tag := 1;
  TrackBar1.Value := MediaPlayer1.CurrentTime;
  CurrentMin := MediaPlayer1.CurrentTime div 1000 div 600000;
  CurrentSec := MediaPlayer1.CurrentTime div 1000; // Seconds
  DurationMin := MediaPlayer1.Duration div 1000 div 600000;
  DurationSec := MediaPlayer1.Duration div 1000; // Seconds
  LabelCurrentTime.Text   := Format('%2.2d : %2.2d', [CurrentMin, CurrentSec]);
  LabelRemainingTime.Text := Format('%2.2d : %2.2d', [DurationMin, DurationSec]);
  TrackBar1.Tag := 0;  
end;