|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Таймер показывает невесть что...
Сделал таймер для отображения времени в минутах и секундах, прошедшего с начала воспроизведения аудиотрека. Образец кода взял из FAQ. Но таймер не работает. Вернее работает, но показывает что-то своё, мне непонятное. Подскажите, в чём ошибка?
Код:
procedure TForm1.Timer2Timer(Sender: TObject); var Min, Sec: word; begin with MediaPlayer1 do if FileName<>'' then begin Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position); Sec:=MCI_TMSF_SECOND(MediaPlayer1.Position); Label3.Caption:=Format('%.2d:%.2d',[Min,Sec]); end; |
#2
|
||||
|
||||
Когда руки прямые, FAQ не нужно.
Код:
var Sec,Min : Integer; SSec,SMin : String; Sec := MP1.Position div 1000; Min := Sec div 60; if Sec > 9 then SSec := IntToStr(Sec) else SSec : '0' + IntToStr(Sec); SMin := IntToStr(Min) Label1.Caption := SMin + ':' + SSec; |
#3
|
||||
|
||||
Спасибо!
А насчёт того, откуда у меня руки растут, ты прав. Но я надеюсь, что это не навсегда. |
#4
|
||||
|
||||
При достаточной практике и хоть каком-то количестве извилин - далеко не навсегда. Я тоже когда-то нубом был... Как и каждый здесь.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
||||
|
||||
DJ PhoeniX, ну да.
|