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

Информатика. Программирование в Delphi
265
f:=1;
end
else
//вывод цифры на индикатор
Edit1.Text:=Edit1.Text+IntToStr(sbtn.Tag);
//нажата кнопка 0
0:
//если число на индикаторе не равно нулю
if Edit1.Text<>'0' then
//добавление нуля к числу на индикаторе
Edit1.Text:=Edit1.Text+'0';
end;
end;
10. В разделе описания типа TForm1 после объявления компонентов объ-
явите следующую процедуру.
procedure OpBtnClick(Sender: TObject);
11. В разделе Implementation напишите процедуру OpBtnClick.
//выполняется при щелчке по кнопкам +, -, /, * или =
procedure TForm1.OpBtnClick(Sender: TObject);
var
//нажатая кнопка
sbtn:TSpeedButton;
begin
//получение ссылки на нажатую кнопку
sbtn:=Sender as TSpeedButton;
//ожидание первой цифры, но нажата кнопка операции
if f=0 then
//запоминание операции
oper:=sbtn.Tag
else
begin
//выполнение предыдущей операции
DoOper;
//запоминание новой операции
oper:=sbtn.Tag;
//ожидание первой цифры нового числа
f:=0;
end;
end;
12. В инспекторе объектов для формы Form1 создайте процедуру
FormCreate − обработчик события OnCreate.
//выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin