Delphi 中自定义异常及异常处理的一般方法

   delphi中异常定义如下：

TCustomException   =   class(Exception)
    private
    public
        constructor   Create(const   Msg:   string );
    end;

在一般的编程中，因为涉及到函数的嵌套调用，如果在一个函数中发生异常，且此函数中有try except语句，如果想让上级函数捕捉到异常，则在except end中调用 raise语句即可。

一般编程语言的通用处理异常的结构是

try

try

except

end;

finally

end;

即先是一个except语句，处理异常，然后再是finally语句，用来将语句中申请的资源释放掉。