(delphi11最新学习资料) Object Pascal 学习笔记---第9章第6节（拦截异常）

本文主要是介绍(delphi11最新学习资料) Object Pascal 学习笔记---第9章第6节（拦截异常），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

9.6.2 拦截异常

​ 随着时间的推移，Object Pascal 语言的原始异常处理系统又增加了一个高级功能，那就是方法：

procedure RaisingException(P: PExceptionRecord); virtual；

​ 根据源代码文档:

该虚函数将在异常即将发生前被调用。在外部异常的情况下，由于 "引发 "条件已经开始，因此在创建对象后不久就会调用该函数。

​ 异常类中的函数实现管理着内部异常（通过调用内部的 SetInnerException），这也许解释了为什么要在引入内部异常机制的同时引入该函数。

​ 无论如何，既然有了这个功能，我们就可以加以利用。事实上，通过重载该方法，我们就有了一个单一的后创建函数，无论使用哪个构造函数创建异常，该函数都会被调用。换句话说，你可以避免为异常类定义自定义构造函数，而是让用户调用基本异常类多个构造函数中的一个，并仍然拥有自定义行为。例如，你可以记录给定类（或子类）的任何异常。

注解：另一种方法是重载 TObject 的虚拟 AfterConstruction 方法，无论调用的构造函数是什么，初始化代码都会被执行。

​ 这是一个重载 RaisingException 方法的自定义异常类（在 AdvancedExcept 示例中再次定义）：

typeECustomException = class(Exception)protectedprocedure RaisingException(P: PExceptionRecord); override;end;procedure ECustomException.RaisingException(P: PExceptionRecord);
begin// Log exception informationFormExceptions.Show('Exception Addr: ' + IntToHex(Integer(P.ExceptionAddress), 8));FormExceptions.Show('Exception Mess: ' + Message);// Modify the messageMessage := Message + ' (filtered)';// Standard processinginherited;
end;

​ 该方法的作用是记录一些异常信息、修改异常消息，然后调用基类的标准处理方法（嵌套异常机制的运行需要）。该方法是在异常对象创建后、异常发生前调用的。我们可以注意到这一点，因为 Show 调用产生的输出是在调试器捕获异常之前生成的！同样，如果在 RaisingException 方法中设置断点，调试器会在捕获异常之前停止。

​ 同样，嵌套异常和这种拦截机制在应用程序代码中并不常用，因为它们是更适合库和组件开发人员使用的语言特性。

这篇关于(delphi11最新学习资料) Object Pascal 学习笔记---第9章第6节（拦截异常）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---