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

Информатика. Программирование в Delphi
272
del.Tag:=4;
SpeedButton0.OnClick:=DigitBtnClick;
SpeedButton1.OnClick:=DigitBtnClick;
SpeedButton2.OnClick:=DigitBtnClick;
SpeedButton3.OnClick:=DigitBtnClick;
SpeedButton4.OnClick:=DigitBtnClick;
SpeedButton5.OnClick:=DigitBtnClick;
SpeedButton6.OnClick:=DigitBtnClick;
SpeedButton7.OnClick:=DigitBtnClick;
SpeedButton8.OnClick:=DigitBtnClick;
SpeedButton9.OnClick:=DigitBtnClick;
ravno.OnClick:=OpBtnClick;
minus.OnClick:=OpBtnClick;
plus.OnClick:=OpBtnClick;
del.OnClick:=OpBtnClick;
umn.OnClick:=OpBtnClick;
end;
procedure TForm1.zapClick(Sender: TObject);
begin
if pos(',',Edit1.Text)=0 then
begin
Edit1.Text:=Edit1.Text+',';
f:=1;
end;
end;
procedure TForm1.cClick(Sender: TObject);
begin
Edit1.Text:='0';
accum:=0;
oper:=0;
f:=0;
end;
end.