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

langfengyl2024-04-14 8:02

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;

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

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