关于异常处理搞不定了,请大侠们指点

Question

TCOFail 是我自己继承了,EXCEPTION做的里面就重载了一个过程.就是提示信息,但是还不好用.
不行了搞不定了.请指点怎么能捕获CLIENTSOCKET1.OPEN的错误呢??????????try
  clientsocket1.open;
except
on e:TConFail do
 e.warning();//这里根本走不到啊.我服了,搞不定了.
end;

Answer 1

不是说你继续了Exception就能做什么，毕竟要在内部raise 一个TConFail的异常，否则，你的异常根本不会进入的～

Answer 2

因为你用的是delphi自己带的控件，所以根本不可能raise你定义的异常类，一般自己定义的异常类必须要在自己代码中要用到，也就是raise TConFail.Create（’error‘），然后在调用的地方：
try
  func;
except
  on e:TConFail do
    dosomething;
end;function func;
begin
  ...
  if error then raise TConFail.Create('error');
end;