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

Информатика. Программирование в Delphi
251
//выполняется при щелчке по кнопке увеличения минут
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
//увеличение количества минут
inc(AMin);
//если количество минут больше 59
if AMin>59 then
AMin:=0;
//если количество меньше 10
if AMin<10 then
//вывод количества минут на экран
Label3.Caption:='0'+IntToStr(AMin)
else
//вывод количества минут на экран
Label3.Caption:=IntToStr(AMin)
end;
11. В инспекторе объектов для кнопки BitBtn4 создайте процедуру
BitBtn4Click – обработчик события OnClick.
//выполняется при щелчке по кнопке уменьшения минут
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
//уменьшение количества минут
dec(AMin);
//если количество минут меньше 0
if AMin<0 then
AMin:=59;
//если количество минут меньше 10
if AMin<10 then
//вывод количества минут на экран
Label3.Caption:='0'+IntToStr(AMin)
else
//вывод количества минут на экран
Label3.Caption:=IntToStr(AMin)
end;
12. В инспекторе объектов для кнопки BitBtn5 создайте процедуру
BitBtn5Click – обработчик события OnClick.
//выполняется при щелчке по кнопке увеличения секунд
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
//увеличение количества секунд
inc(ASec);
//если количество секунд больше 59