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

Информатика. Программирование в Delphi
211
begin
//работа таймера запрещена
Timer1.Enabled:=false;
//заголовок метки
Label2.Caption:='';
end;
end;
10. Создадим процедуру Timer1Timer для обработки события OnTimer
компонента Timer1. Оформим ее следующим образом.
//процедура выполняется через заданный интервал времени
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//увеличение числа секунд
inc(sec);
//если число секунд больше 59
if sec>59 then
begin
//число секунд
sec:=0;
//увеличение числа минут
inc(min);
end;
//если число минут больше 59
if min>59 then
begin
//число минут
min:=0;
//увеличение числа часов
inc(hour);
end;
//вывод числа часов
Label2.Caption:=IntToStr(hour)+':';
//если число минут меньше 10
if min<10 then
//вывод числа минут с нулем в начале
Label2.Caption:=Label2.Caption+'0'+IntToStr(min)+':'
else
//вывод числа минут
Label2.Caption:=Label2.Caption+IntToStr(min)+':';
//если количество секунд меньше 10
if sec<10 then
//вывод числа секунд