27.03.2012, 06:10
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Цитата:
Сообщение от sandysman
Здравствуйте. Не могу до думматься как реализовать длительность трека при его проигрывании, то есть по мере возрастания, от 0 секунд до к примеру 4 мин. Мешают милисекунды, когда я пытаюсь вывести в label длительность трека media.position он показывает к примеру 12995, т.е. 12 секунд и эти присловутые милисекунды. Есть способ от них избавиться?
|
Код:
var
mp3Length : Integer;
begin
mp3Length := ...
label1.Caption := IntToStr(Round(mp3Length/1000));
|