Курсовая работа: Створення програми-органайзера

else Edit1.Text:= Edit1.Text + '7';

end;

procedure TForm3.Butt_8Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '8';

f:= 1;

end

else Edit1.Text:= Edit1.Text + '8';

end;

procedure TForm3.Butt_9Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '9';

f:= 1;

end

else Edit1.Text:= Edit1.Text + '9';

end;

procedure DoOper;

begin

numb:= StrToFloat(Form3.Edit1.Text);

case oper of

0: cyf:=numb;

1: cyf:=cyf + numb;

2: cyf:=cyf - numb;

3: cyf:=cyf *numb;

4: cyf:=cyf / numb;