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

Информатика. Программирование в Delphi
252
if ASec>59 then
ASec:=0;
//если количество секунд меньше 10
if ASec<10 then
//вывод количества секунд на экран
Label4.Caption:='0'+IntToStr(ASec)
else
//вывод количества секунд на экран
Label4.Caption:=IntToStr(ASec)
end;
13. В инспекторе объектов для кнопки BitBtn6 создайте процедуру
BitBtn6Click – обработчик события OnClick.
//выполняется при щелчке по кнопке уменьшения секунд
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
//уменьшение количества секунд
dec(ASec);
//если количество секунд меньше 0
if ASec<0 then
ASec:=59;
//если количество секунд меньше 10
if ASec<10 then
//вывод количества секунд на экран
Label4.Caption:='0'+IntToStr(ASec)
else
//вывод количества секунд на экран
Label4.Caption:=IntToStr(ASec)
end;
14. В инспекторе объектов для таймера Timer1 создайте процедуру
Timer1Timer – обработчик события OnTimer.
//процедура выполняется через заданный интервал времени
procedure TForm1.Timer1Timer(Sender: TObject);
var
//текущее количество часов, минут, секунд
Hour,Min,Sec:word;
begin
//определим количество часов
Hour:=HourOf(Now);
// определим количество минут
Min:=MinuteOf(Now);
// определим количество секунд
Sec:=SecondOf(Now);