Курсовая работа: Программа Калькулятор

if length(c)<16 then

begin

c:=c+p;c1:=c;

end;

end;

procedure TForm5.Button10Click(Sender: TObject);

begin

o('0',s,s1);

edit1.text:=(' '+s)

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

o('1',s,s1);

edit1.text:=(' '+s)

end;

.

.

.

procedure TForm5.Button9Click(Sender: TObject);

begin

o('9',s,s1);

edit1.text:=(' '+s)

end;

procedure TForm5.Button20Click(Sender: TObject);

begin

if copy(s,1,1)='-'

then delete(s,1,1)

else s:='-'+s ;

s1:=s;