[Klassenas]

Сделал таймер для отображения времени в минутах и секундах, прошедшего с начала воспроизведения аудиотрека. Образец кода взял из 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;

[mak-karpov]

Когда руки прямые, 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;

[Klassenas]

Спасибо!
А насчёт того, откуда у меня руки растут, ты прав. Но я надеюсь, что это не навсегда.

[PhoeniX]

При достаточной практике и хоть каком-то количестве извилин - далеко не навсегда. Я тоже когда-то нубом был... Как и каждый здесь.

[mak-karpov]

DJ PhoeniX, ну да.