Question

delphi7的异常处理程序（别再说网上的那些方法了，本人自己已经查阅了各种说法，都是错的）

附上本人的源代码：
try
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\media\picture\'+m);
except
on EInvalidGraphic do //这句话去掉，也没有用！
label3.Visible:=true;
end;
错误提示：路径的图片不存在。
着急的是，它似乎只执行了try部分，except没有发挥应有的作用。在线求解，请不懂的勿扰，大神千万不要不屑回答，跪求正解了！
源代码 image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\media\picture\'+m);
中最后加的变量m是我保存的图片名称。

Answer 1

var
a, b: Integer;
begin
b := 0;
a := 1;
try
a := a div b;
except
on Exception do
ShowMessage('11');
end;
ShowMessage(IntToStr(a));
end;

不要在调试状态下运行

Answer 2

不对的 我试过

只要是异常就会执行label3.Visible:=true;这句语句
同时 界面上也不会弹出异常信息

追问

对不起，您的表达，我没懂。您是说，我的这个代码 没有错误码？

追答

对 没有错误
只要异常 肯定会执行except后的代码
如果没有错误 才不会习性except后的代码

Answer 3

源码尽量简化，不要直接贴。