Стр. 212 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
212
Label2.Caption:=Label2.Caption+'0'+IntToStr(sec)
else
//вывод числа секунд
Label2.Caption:=Label2.Caption+IntToStr(sec);
//если позиция файла равна длине файла
if MediaPlayer1.Position=MediaPlayer1.Length then
begin
//заголовок метки
Label2.Caption:='';
//запрет работы таймера
Timer1.Enabled:=false;
end;
end;
11. Запустим приложение (рис. 15.3).
Рис. 15.3
Окончательный вариант приложения приведен в листинге 15.1. Коммен-
тарии удалены.