计算器

一、 计算器

(一)整数计算器

步骤一：1. 向Form1中添加16个Button（数字Name:Button1至Button0；加减乘除Name:ButtonAdd,ButtonSub,ButtonMul,ButtonDiv;等号，取消Name:ButtonEqu,ButtonCan）和1个Edit组件。

2. 利用View菜单---Alignment Palette功能使16个Button排列整齐。

步骤二：

1. 在implementation后面添加变量x,y：

var

x,y:integer;

2. 填写16个Button的代码：

Button1至Button0(以Button1为例):

edit1.Text:=edit1.Text+'1';

ButtonCan:

edit1.Text:='';

ButtonAdd:

x:=strtoint(edit1.Text);

y:=1;

edit1.Text:='';

ButtonSub:

x:=strtoint(edit1.Text);

y:=2;

edit1.Text:='';

ButtonMul:

x:=strtoint(edit1.Text);

y:=3;

edit1.Text:='';

ButtonDiv:

x:=strtoint(edit1.Text);

y:=4;

edit1.Text:='';

ButtonEqu:

case y of

1:edit1.Text:=inttostr(x+strtoint(edit1.Text));

2:edit1.Text:=inttostr(x-strtoint(edit1.Text));

3:edit1.Text:=inttostr(x*strtoint(edit1.Text));

4:edit1.Text:=inttostr(x div strtoint(edit1.Text));

end;

设置键盘输入：

Button1---OnKeyPress事件：

if (Key>='0')and (Key<='9') then edit1.Text:=edit1.Text+Key;

if (Key='+') then

begin

x:=strtoint(edit1.Text);

y:=1;

edit1.Text:='';

end;

if (Key='-') then

begin

x:=strtoint(edit1.Text);

y:=2;

edit1.Text:='';

end;

if (Key='*') then

begin

x:=strtoint(edit1.Text);

y:=3;

edit1.Text:='';

end;

if (Key='/') then

begin

x:=strtoint(edit1.Text);

y:=4;

edit1.Text:='';

end;

if (Key='=') then

begin

case y of

1:edit1.Text:=inttostr(x+strtoint(edit1.Text));

2:edit1.Text:=inttostr(x-strtoint(edit1.Text));

3:edit1.Text:=inttostr(x*strtoint(edit1.Text));

4:edit1.Text:=inttostr(xdiv strtoint(edit1.Text));

end;

end; //need two end

把其他15个Button--- OnKeyPress事件 设置成与Button1--- OnKeyPress相同即可。

收尾工作：

Edit1---OnEnter事件：

button1.SetFocus;

小数计算器

步骤一：1. 在整数计算器的16个Button的基础上，继续添加4个Button(小数点 Name:ButtonDot 取相反数(+/-) Name:ButtonFu 取算术平方根(sqrt) Name:ButtonSqrt 退出： Name: ButtonExit)

2. 利用View菜单---Alignment Palette功能使16个Button排列整齐。

步骤二：Button1至Button0 与整数计算器的代码相同

在implementation后面添加变量x,y：

var

x:real;

y:integer;

ButtonDot:

edit1.Text:=edit1.Text+'.';

ButtonDot.Enabled:=false;

ButtonFu:

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

ButtonSqrt:

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

ButtonExit:

close;

ButtonCan:

edit1.Text:='';

ButtonAdd:

x:=strtofloat(edit1.Text);

y:=1;

edit1.Text:='';

ButtonDot.Enabled:=true;

ButtonSub:

x:=strtofloat(edit1.Text);

y:=2;

edit1.Text:='';

ButtonDot.Enabled:=true;

ButtonMul:

x:=strtofloat(edit1.Text);

y:=3;

edit1.Text:='';

ButtonDot.Enabled:=true;

ButtonDiv:

x:=strtofloat(edit1.Text);

y:=4;

edit1.Text:='';

ButtonDot.Enabled:=true;

ButtonEqu:

case y of

1:edit1.Text:=floattostr(x+strtofloat(edit1.Text));

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

3:edit1.Text:=floattostr(x*strtofloat(edit1.Text));

4:edit1.Text:=floattostr(x/strtofloat(edit1.Text));

end;

3. 设置键盘输入：

Button1---OnKeyPress事件：

if(key>='0')and (key<='9') then edit1.Text:=edit1.Text+key;

if(key='+') then

begin

x:=strtofloat(edit1.Text);

y:=1;

edit1.Text:='';

end;

if(key='-') then

begin

x:=strtofloat(edit1.Text);

y:=2;

edit1.Text:='';

end;

if(key='*') then

begin

x:=strtofloat(edit1.Text);

y:=3;

edit1.Text:='';

end;

if(key='/') then

begin

x:=strtofloat(edit1.Text);

y:=4;

edit1.Text:='';

end;

if(key='.') then edit1.Text:=edit1.Text+'.';

if(key='=') then

begin

case y of

1:edit1.Text:=floattostr(x+strtofloat(edit1.Text));

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

3:edit1.Text:=floattostr(x*strtofloat(edit1.Text));

4:edit1.Text:=floattostr(x/strtofloat(edit1.Text));

end;

end;

把其他所有Button--- OnKeyPress事件 设置成与Button1--- OnKeyPress相同即可。

收尾工作：

Button1---OnEnter事件：

button1.SetFocus;