(delphi11最新学习资料) Object Pascal 学习笔记---第9章第4节(全局异常处理)

9.4 全局异常处理

​ 如果事件处理器引发的异常停止了标准的执行流程,那么如果找不到异常处理器,是否也会终止程序呢?这确实是控制台应用程序或其他特殊用途代码结构的情况,而大多数可视化应用程序(包括基于 VCL 或 FireMonkey 库的应用程序)都有一个全局消息处理循环,它将每次执行都包裹在一个 try-except 块中,这样如果在事件处理器中引发异常,就会被捕获。

注解:请注意,如果在激活消息循环之前启动代码中出现异常,异常通常不会被库捕获,程序将以错误结束。通过在主程序中添加自定义 try-except 块,可以部分缓解这种行为。即使有这种程度的保护,在主程序执行之前和进入自定义 try-except 块之前,仍会运行库初始化代码,因此在此之前仍有可能发生未处理的异常。

​ 在执行过程中出现异常的一般情况下,会发生什么取决于库,但一般都有一种编程方式,可以用全局处理器拦截这些异常,或者有一种显示错误信息的方式。虽然某些细节有所不同,但 VCL 和 FireMonkey 都是如此。

​ 在前面的演示中,你看到了当异常发生时显示的简单错误信息。如果想改变这种行为,可以处理全局应用程序对象的 OnException 事件。虽然这一操作更多地与应用程序的可视化库和事件处理相关,但它也与异常处理相关,因此值得在此介绍一下。

​ 我将前面的示例称为 ErrorLog,并在主窗体中添加了一个新方法:

pascal 复制代码
public
  procedure LogException(Sender: TObject; E: Exception);

​ 在 OnCreate 事件处理器中,我添加了将一个方法挂钩到全局 OnException 事件的代码,之后,我编写了全局处理器的实际代码:

pascal 复制代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := LogException;
end;

procedure TForm1.LogException(Sender: TObject; E: Exception);
begin
  Show('Exception ' + E.Message);
end;

注解:下一章将详细介绍如何将一个方法指针关联一个事件(如上所述)。

​ 有了全局异常处理器中的新方法,程序就能将错误信息写入输出端,而不会通过错误对话框停止应用程序。

相关推荐
刘婉晴11 分钟前
【信息安全工程师备考笔记】第三章 密码学基本理论
笔记·安全·密码学
球求了29 分钟前
C++:继承机制详解
开发语言·c++·学习
时光追逐者1 小时前
MongoDB从入门到实战之MongoDB快速入门(附带学习路线图)
数据库·学习·mongodb
一弓虽1 小时前
SpringBoot 学习
java·spring boot·后端·学习
晓数2 小时前
【硬核干货】JetBrains AI Assistant 干货笔记
人工智能·笔记·jetbrains·ai assistant
我的golang之路果然有问题3 小时前
速成GO访问sql,个人笔记
经验分享·笔记·后端·sql·golang·go·database
genggeng不会代码3 小时前
用于协同显著目标检测的小组协作学习 2021 GCoNet(总结)
学习
lwewan3 小时前
26考研——存储系统(3)
c语言·笔记·考研
搞机小能手3 小时前
六个能够白嫖学习资料的网站
笔记·学习·分类
nongcunqq4 小时前
爬虫练习 js 逆向
笔记·爬虫