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

edit1.Text:='0';

end;

end;

procedure TForm3.Butt_CClick(Sender: TObject);

begin

Edit1.Text:= '0';

cyf:= 0;

oper:= 0;

f:= 0;

end;

procedure TForm3.Butt_plus_minusClick(Sender: TObject);

begin

edit1.Text:=floattostr(-strtofloat(edit1.Text));

end;

procedure TForm3.Butt_comaClick(Sender: TObject);

begin

if Edit1.Text = '0' then

begin

Edit1.Text:= '0,';

f:= 1;

end;

if Pos(',',Edit1.Text) = 0 then

Edit1.Text:= Edit1.Text + ',';

end;

procedure TForm3.Butt_divClick(Sender: TObject);

begin

if f = 0

then oper:= 4

else begin