Delphi程序的设计基础教程第7章 异常处理

DELPHI程序设计基础教程 第七章异常处理.第七章异常处理7.1异常与Delphi的异常类7.2异常保护和处理机制7.3异常处理应用2023/2/3.本章学习导读程序运行过程中，不可避免的会出现异常或错误，我们平时所使用的操作系统也经常会出现各种问题，因此在程序的开发中如何检测和处理程序的运行错误是一个关键问题。通过Delphi的异常处理机制，可以捕获这些异常并进行处理。Delphi全面支持异常处理，定义了大量的异常处理对象，使程序能够处理几乎所有的异常情况。本章首先介绍Delphi中的异常种类，然后介绍异常保护和处理机制，最后给出一个应用程序中处理异常的实例，使大家能深入了解异常。2023/2/3.7.1异常与Delphi的异常类异常处理机制建立在保护块的基础上，所谓保护块是指介于关键字try和end之间的一段代码，当保护块中的代码发生异常时自动创建一个相应的异常类，程序可以捕获并处理这个异常，以确保程序的正常结束以及资源的释放，若无法处理则会弹出一个消息框。异常类是Delphi异常处理机制的核心，Delphi提供的所有异常类都从Exception类继承，Exception类包含在SysUtils单元中。2023/2/3.7.1异常与Delphi的异常类运行期间库异常类运行期间库异常类用于处理运行期间的一些异常，运行期间库异常可以分为7类，它们都定义在SysUtils单元中。（1〕I/O异常。I/O异常EInOutError是在程序运行中试图对文件或外部设备进行操作失败后产生的，它从Exception派生后增加了一个公有数据成员ErrorCode，用于保存所发生错误的代码。在发生异常时，通过访问该属性可以针对不同情况采取不同的对策。通过编译开关{$I}可以指定是否使用I/O异常类。当编译开关为{$I}时，将在程序中使用I/O异常类。当编译开关为{$I-}时，不产生I/O异常类，而是直接把错误代码返回到预定义变量IOResult中。（2〕堆异常。堆异常是在动态内存分配中产生的，包括2个类EOutOfMemory和EInvalidPointer。（3〕整数异常。整数异常都是从EIntError类派生的，但在程序运行中引发的总是它的子类：EDivByZero，ERangeError，EIntOverFlow。2023/2/3.7.1异常与Delphi的异常类（4〕浮点异常。浮点异常都是从EMathError类派生，与整数异常相似，在程序运行中总是引发它的子类：EInvalidOp、EZeroDivide、EOverFlow、EUnderFlow。浮点异常是在进行实数操作时产生的。（5〕类型匹配异常。当试图用As操作符把一个对象强制匹配为另一类对象失败后，引发类型匹配异常EInvalidCast。（6〕类型转换异常。当试图从一种数据类型转换为另一种数据类型时，如果不能直接转换则引发类型转换异常EConvertError。（7〕硬件异常。硬件异常在以下两种情况下发生：1、处理器检测到一个它不能处理的错误；2、程序产生一个中断企图中止程序的执行。2023/2/3.7.1异常与Delphi的异常类控件异常类在操作和使用控件的过程中，不可避免的会遇到控件异常。控件异常分为预定义异常和通用异常。Delphi为某些特定的控件预定义了一些常见的异常情况，这类异常被称为预定义异常。所有控件都可能出现的异常被称为通用异常。（1〕预定义异常Delphi为许多控件都定义了异常类，下面介绍几个典型的预定义异常：1、EMenuError2、EInvalidGridOperation3、EDatabaseError和EReportError（2〕通用异常Delphi定义了许多通用异常，下面介绍几个常用的通用异常：1、EInvalidOperation2、EComponentError3、EOutOfResource2023/2/3.7.1异常与Delphi的异常类其它组件异常其它组件异常是指除了控件以外的其它组件引发的异常，包括流异常、图形异常、打印异常和字符串链表异常等。（1〕流异常。流异常包括EStreamError、EFCreateError、EFOpenError、EFileError、EReadError、EWriteError、EClassNotFound，流异常在Classes库单元中定义（2〕图形异常。包括EInvalidGraphic和EInvalidGraphicOperation两类，在Graphic库单元中定义（3〕打印异常。当打印发生错误时〔如向一个不存在的打印机发送打印任务〕引发，它在Printers库单元中定义。（4〕字符串链表异常。包括EStringListError和EListError两类，它们在用户对字符串链表进行非法操作时引发。由于许多控件〔如ListBox、Memo〕都有一个TStrings类的重要属性，因此字符串链表异常在编程中非常有用2023/2/3.7.2异常保护和处理机制

通常为容易出现错误的代码添加保护，将代码块放入try语句之后实施保护，异常处理通常有两种结构：try…except…end和try…finally…end。前者为开发者提供了一个按自己的需要进行异常处理的机制；后者与资源有关，确保异常发生后资源能够正常释放。1．使用try…except…end处理异常try{要进行保护的代码，这些代码很容易出现异常}exceptonexception1do{处理exception1的语句}onexception2do{处理exception2的语句}……[else{提供默认响应}]//else语句放在[]中表明else语句可有可无end;try和except之间的语句是希望正常执行的代码，在执行过程中如果出现了异常，则程序跳入except部分执行。值得注意的是：正常情况下，except之后的语句是不执行的，只有在出现异常的情况下才会执行。2023/2/3.7.2异常保护和处理机制

使用try…finally…end处理异常try…finally…end主要用于在发生异常的情况下，及时释放程序所占用的资源，如内存、文件等等。因为整个系统的资源总是有限的，程序必须在运行结束后及时释放所占用的资源，才能保证系统的正常运行。try…finally…end结构语法如下：try{要进行保护的代码，这些代码很容易出现异常}finally{不管是否发生异常都必须执行的代码，一般用来释放资源}end;2023/2/3.7.3异常处理应用

下面通过一个具体的应用演示异常处理的应用，在这个例子中定义了一个InValidateID类，当用户名不正确时引发该异常。（1〕新建一个Application；（2〕向窗体Form1中添加一个Label组件，将其Caption属性设置为“应用程序主窗口”；（3〕单击“文件|新建|窗体”，创建一个新窗体，用于登陆时验证，添加两个Label组件，分别将其Caption属性设置为“用户名”、“密码”（4〕放置两个Edit组件到窗体上，将其Text属性清空，将密码文本框的Passwordchar属性设置为“*”（5〕放置两个按钮到窗体上，将其Caption属性分别设置为“登陆〞和“取消”。（6〕选中Form1窗体，单击“文件|使用单元”，呈现“UseUnit〞对话框，选中Unit2单击“OK〞按钮，添加Unit2的引用。（7〕选中Form1，在对象检视器中打开“Events〞选项卡，选中OnShow事件，出现一个下拉列表框，双击下拉列表框，输入如下代码：ifForm2.ShowModal=mrCancelthenCloseelseForm2.Close;（8〕选中Form2窗体，按下“F12”，打开代码编辑，在“var〞语句之前添加如下代码：typeEInValidateID=class(Exception)publicconstructorCreate(msg:String);end;2023/2/3.7.3异常处理应用（9〕在“implementation〞之后添加如下代码：constructorEInValidateID.Create(msg:String);begininheritedCreate(msg);end;（10〕双击“登陆〞按钮，输入如下代码：ifEdit1.Text<>'Admin'thenRaiseEInValidateID.Create('无效的用户名');ifEdit2.Text='1234'thenModalResult:=mrOKelseModalResult:=mrCancel;（11〕双击“取消〞按钮，输入如下代码：ModalResult:=mrCancel;（12〕运行程序，当用户名为Admin，密码为1234时主窗体出现。2023/2/3.实训代码（7〕选中Form1，在对象检视器中打开“Events〞选项卡，选中OnShow事件，出现一个下拉列表框，双击下拉列表框，输入如下代码：ifForm2.ShowModal=mrCancelthenCloseelseForm2.Close;（8〕选中Form2窗体，按下“F12”，打开代码编辑，在“var〞语句之前添加如下代码：constUser:array[1..3]ofString=('zhang','li','wang');constPass:array[1..3]ofString=('111','222','333');typeEInValidateID=class(Exception)publicconstructorCreate;end;EInValidatePassword=class(Exception)publicconstructorCreate;end;2023/2/3.实训代码（9〕在“implementation〞之后添加如下代码：constructorEInValidateID.Create;begininheritedCreate('无效的用户名');end;constructorEInValidatePassword.Create;begininheritedCreate('无效的密码');end;（10〕双击“登陆〞按钮，使登陆按钮的代码如下所示：procedureTForm2.Button1Click(Sender:TObject);vari:integer;beginfori:=low(User)tohigh(User)doifUser[i]=Edit1.TextthenBreak;ifi>high(User)thenRaiseEInValidateID.Create;ifEdit2.Text<>Pass[i]thenRaiseEInValidatePassword.Create;ModalResult:=mrOK;end;（11