怎样转换事件格式？(100分)

K

koko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #1

小弟初学编程，用mediaplayer控件播放mp3,mediaplayer.length的返回值是文件的毫秒数，如何转换为00：00格式，请哪位仁兄帮忙。

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #2

var
L, M, S: Integer;
Str: String;
begin

L := MediaPlayer.Length div 1000;
M := L div 60;
S := L mod 60;
Str := Format('%.02d:%.02d', [M, S]);
end;

 

K

koko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #3

接受答案了.