delphi 制作计算器除法出错

2024-11-20 00:47:59

推荐回答（1个）

回答1：

procedure TForm1.Button4Click(Sender: TObject);
begin
if b=0 then
b:=StrToint(edit1.Text);
if c='+'
then begin//这里加begin
edit1.Text:=intToStr(a+b);
a:=StrToint(edit1.Text) ;
exit;
end;//这里加个end，if 语句后没有begin 和end，只能后面第一句起作用。所以上面会对a进行赋值，下面除法因为对a赋值改变，当然不会有正确的结果。
if c='/'
then
if b=0 then edit1.Text:='cuowu' else
if
b<>0
then edit1.Text:=FloatToStr(b / a);

a:=StrToint(edit1.Text) ;//结果有可能不为整数，这里会出错

end;