Question

delphi7编程错误，请高手帮忙

if Temp2 = '0' then
begin
showmessage('除数不能为0')
end;
else
result := StrToint(Temp1) / StrToint(Temp2);
Edit1.Text := IntToStr(result);

为什么运行不通呢

Answer 1

var
temp1,temp2:string;
result:real; {结果应该用小数，integer是整数，所以报错，同理要输入小数相除的话 temp1、temp2均可设置real}
temp1:=trim(edit1.Text);
temp2:=trim(edit2.Text);
if temp2<>'0'then begin
result:=(strtoint(temp1))/(strtoint(temp2));
edit3.Text:=floattostr(result);
end else begin
showmessage('除数不能为0'); //这个；别漏了
end;

Answer 2

if Temp2 = '0' then
begin
showmessage('除数不能为0')
end; //去掉这里的分号
else
result := StrToint(Temp1) / StrToint(Temp2);
Edit1.Text := IntToStr(result);

Answer 3

if Temp2 = '0' then
begin
showmessage('除数不能为0');
end(这儿不能用;因为下面还有else)
else
begin
result := StrToint(Temp1) / StrToint(Temp2);
Edit1.Text := IntToStr(result);
end;

追问

if Temp2 = '0' then
begin
showmessage('除数不能为0')
end
else
begin
result := StrToint(Temp1) / StrToint(Temp2);
Edit1.Text := IntToStr(result);
end;
还是错误

Answer 4

Edit1.Text := floatToStr(result);