抛异常问题，请各位高手帮我解决，在线等！！！！！！！！

[chenli1221]

内容如下：

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=0;
b:=20;
try
showmessage(floattostr(b*1.0/a));//除以出错！
except
on exception do showmessage('出错啦！');
end;
end;

为什么except接不到异常？但程序又报错，请各位帮我解决!!

end.

[何鲁青]

前几天刚在一个帖子里面讨论过，搂住看看这个吧
http://community.csdn.net/Expert/topic/3999/3999721.xml?temp=.9356653

[fengzhengren]

这是delphi的机制，你单击运行生成的.exe文件，就会提示'出错啦！'，而你在调试时会在try
showmessage(floattostr(b*1.0/a));//除以出错！处出错。

[fengzhengren]

出错之后就不会再继续运行下一步了，因为是调试状态嘛。
而生成的.exe文件会提示错误的

[lovend]

因为你用“出错拉”来代替了出错的信息。

你可以这样改

except
on e:exception do
showmessage(e.Message);

end;

这样就会捕捉到错误了。