Question

delphi 点击两个按钮在edit输出结果

我在设计一个计算器，打算点击两个SpeedButton后（一个是+，-，*，/，另一个是 = ），在edit里面得出结果!!!! 急~~ 求高手..

Answer 1

一个计算器的设计，唯一的结果是不可能只能通过两个SpeedButton就能得到想到的，最起码每一个运算符都有一个相应的响应事件才可以的。

如果说就是想要两个按钮实现，那 shiwangxu 他的回答还是不错的
在最后点击=时就把所有的可能性都计算一下：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
jg, fh: string;
rt : real;
begin
jg := edit2.Text +' '+ '+' +' '+ edit3.Text + ' = ';
rt := strtofloat(trim(edit2.Text))+strtofloat(trim(edit3.Text));//加法
jg:=jg+ floattostr(rt)+'; '+edit2.Text +' '+ '-' +' '+ edit3.Text + ' = ';
rt := strtofloat(trim(edit2.Text))-strtofloat(trim(edit3.Text));//减法
jg:=jg +floattostr(rt)+'; '+edit2.Text +' '+ '*' +' '+ edit3.Text + ' = ';
rt := strtofloat(trim(edit2.Text))*strtofloat(trim(edit3.Text));//乘法
jg:=jg+ floattostr(rt)+'; '+edit2.Text +' '+ '/' +' '+ edit3.Text + ' = ';
rt := strtofloat(trim(edit2.Text)) div strtofloat(trim(edit3.Text));//除法
jg:=jg+ floattostr(rt)+'; ';
edit1.text := jg;
end;

Answer 2

首先将SpeedButton1 Caption属性设成你的运算符号
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
jg, fh: string;
rt : real;
begin
fh := SpeedButton1.Caption;
jg := edit2.Text +' '+ fh +' '+ edit3.Text + ' = ';
rt := strtofloat(trim(edit2.Text))+strtofloat(trim(edit3.Text));//加法
// rt := strtofloat(trim(edit2.Text))-strtofloat(trim(edit3.Text));//减法
// rt := strtofloat(trim(edit2.Text))*strtofloat(trim(edit3.Text));//乘法
// rt := strtofloat(trim(edit2.Text)) div strtofloat(trim(edit3.Text));//除法
edit1.text := jg + floattostr(rt);
end;