Delphi. Трюки и эффекты

Процедура вывода или обновления индикаторов

procedure TSoundPlayerForm.UpdateViewTime;

var

//Длина файла и позиция в файле

leng, posit: longint;

begin

//Находим длину воспроизводимого файла

leng := mdpSoundPlayer.Length;

//Находим позицию в воспроизводимом файле

posit := mdpSoundPlayer.Position;

//Преобразуем время в строку

lbMainTime.Caption := FileLangToStr(posit);

//Устанавливаем имя файла

lbFileName.Caption := mdpSoundPlayer.FileName;

end;