Показать сообщение отдельно
  #2  
Старый 27.03.2012, 06:10
lmikle lmikle вне форума
Модератор
 
Регистрация: 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));
Ответить с цитированием