本文主要是介绍(delphi11最新学习资料) Object Pascal 学习笔记---第9章第1节(引发异常),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
9.1.2 引发异常
在 Object Pascal 编程中遇到的大多数异常都是由系统生成的,但当你在运行时发现无效或不一致的数据时,你也可以在自己的代码中引发异常。
在大多数情况下,对于自定义异常,你需要定义自己的异常类型。只需从默认异常类或上面提到的现有子类中创建一个新的子类即可:
typeEArrayFull = class(Exception);
在大多数情况下,不需要为新的异常类增加任何方法或字段,声明一个空的派生类就足够了。
这种异常类型的应用场景是一个向数组添加元素的方法,当数组满时就会引发错误。这可以通过创建异常对象并将其传递给 raise
关键字来实现:
if MyArray.IsFull thenraise EArrayFull.Create('数组已满');
这个 Create
方法(从基类 Exception
继承)有一个字符串参数,用于向用户描述异常。
注解:你不需要担心销毁为异常创建的对象,因为异常处理机制将自动删除它。
还有一种使用 raise
关键字的情况。在 except
块中,你可能想执行一些操作,但实际上并不捕获异常,而是让它流向下一个异常处理程序。如果这是你想要的,则只需在异常块内部调用不带参数的 raise
。此操作称为重新引发异常。
9.1.3 异常与堆栈
当程序引发异常而当前例程没有处理它时,你的方法和调用栈会发生什么变化?程序开始在堆栈中已经存在的函数中寻找处理程序。这意味着程序会跳过剩余的语句,从当前函数退出,跳转到异常处理程序。
要了解其工作原理,可以使用调试器或添加一些简单的输出行,以便在执行某条源代码语句时获得通知。在下一个例子 ExceptionFlow 中,我采用了第二种方法。
例如,在 ExceptionFlow 示例的窗体中,当你按下 Raise1 按钮时,一个异常就会被引发而不会被处理,这样代码的最后部分就永远不会被执行:
procedure TForm1.ButtonRaise1Click(Sender: TObject);
begin// Unguarded callAddToArray(24);Show('Program never gets here');
end;
请注意,该方法调用了 AddToArray 过程,而 AddToArray 过程总是会引发异常。当异常被处理后,流程会在处理程序之后重新开始,而不是在引发异常的代码之后。考虑一下这个修改后的方法:
procedure TForm1.ButtonRaise2Click(Sender: TObject);
begintry// This procedure raises an exceptionAddToArray(24);Show('Program never gets here');excepton EArrayFull doShow('Handle the exception');end;Show('ButtonRaise1Click call completed');
end;
最后一个 Show 调用将在第二个 Show 调用之后立即执行,而第一个 Show 调用则始终被忽略。我建议你运行程序、修改代码并进行实验,以充分了解异常发生时的程序流程。
注解:由于处理异常的代码位置与异常发生的代码位置不同,因此最好能知道异常究竟是在哪个方法中发生的。虽然有一些方法可以在异常发生时获得堆栈跟踪,并在处理程序中提供该信息,但这确实是一个高级话题,我不打算在这里介绍。在大多数情况下,Object Pascal 开发人员依赖第三方库和工具(如 Jedi Component Library 的 JclDebug、madExcept 或 EurekaLog)。此外,您还必须在代码中生成并包含编译器创建的 MAP 文件,该文件列出了应用程序中每个方法和函数的内存地址。
这篇关于(delphi11最新学习资料) Object Pascal 学习笔记---第9章第1节(引发异常)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!