Delphi异常处理try except语句和try(16页).doc

《Delphi异常处理try except语句和try(16页).doc》由会员分享，可在线阅读，更多相关《Delphi异常处理try except语句和try(16页).doc（16页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、-Delphi异常处理try except语句和try-第 16 页Delphi异常处理try except语句和try finally语句用法以及区别 一、异常的来源在Delphi的应用程序中，下列的情况都比较有可能产生异常。（1）文件处理（2）内存分配（3）Windows资源（4）运行时创建对象和窗体（5）硬件和操作系统冲突二、异常的处理（1）tryexceptend;在try体内的代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。（2）tryfinallyend;这种异常处理结构一般用于保护Windows的资源分配等方面，它确保了无论t

2、ry体内的代码是否发生异常，都需要由系统进行最后的统一处理的一些Windows对象的正确处理。和tryexceptend不同，该结构的finally部分总被执行。（3）不存在tryexceptfinallyend结构来既处理异常，又保护资源分配的结构，但是，tryexceptend结构允许嵌套到tryfinallyend结构中，从而实现既处理异常，又保护资源的分配。三、异常的精确处理（1）定义一个异常。在Delphi中，每个异常都是Exception1类的一个派生类2。因此，定义一个异常就是定义一个Exception类的派生类。type EMyException = class(Excepti

3、on);当然，基类可以是Exception或者Exception的任何一个任何层次的派生类。（2）在程序中抛出一个异常。根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中，由raise语句来实现。（3）在tryexceptend中更加精确的捕捉异常。使用on E:异常类 do结构可以在do体内处理特定异常类所抛出的异常。四、异常的调试在Delphi IDE中，解除“Debugger Options”（可以使用菜单ToolsDebugger Options进行访问）中的Integrated Debugging复选框的勾选状态可以进行异常的调试。五、异常的补充说明（1）每一段程序都有

4、可能产生错误！这是软件业的一个不容置疑的现象和规律。事实上，传统的ifelse结构完全可以解决所有的错误，使用Exception机制也没能够回避在最原始的层次，通过遍历可能的情况来产生异常的做法，那么，为什么还要异常机制？答案很清楚：异常提供了一种更加灵活和开放的方式，使得后来的编程者可以来根据实际的情况处理这种错误，而不是使用预先设定好的处理结果。Delphi7异常处理了解什么是异常和Delphi7中提供的异常类掌握Delphi7环境下自定义异常的方法和异常处理的语法结构与实现.异常:理解为一种特殊的事件,该事件发生时,程序的正常执行将被打断.由程序导致的不正常情况是错误而不是异常,程序错误

5、与异常不是相同的概念.异常是为方便用户报告错误并处理错误而创建的机制,一般是由操作系统完成的.运行期错误处理软件开发过程中,程序员必须提供适度的方式来处理不可避免的错误.一般方法如下:1 传统方法2 使用异常进行错误处理传统方法在Pascal早期版本中,程序员必须借助编译器开关和状态变量去检测和处理存在的错误.$I-此编译器指令关闭I/O检测Assign(InFile,InputName);Reset(InFile);$I+此编译器指令恢复I/O检测If IOResult0 then错误处理代码;使用异常进行错误处理结构化异常处理是Delphi语言内建的特性.为我们处理异常提供了方便.处理异常

6、有两方面:1 异常处理可确保适当地恢复在应用程序中分配或改变的任何资源.2 结构化异常处理为开发人员提供了一种一致的处理各种类型运行期错误的方式Delphi7异常处理机制异常处理的基本思想是通过提供规范方式处理软,硬件错误的能力,使程序更加健壮.异常处理可以将处理错误的代码与正常的逻辑处理代码相分离.”预警”对话框,以指明应用程序将要产生异常.异常处理机制是一种程序设计安全策略,它是建立在保护块思想上,通过try和end语句块对代码的封装确保在程序发生异常时,程序能够正常运行或释放所占用的资源.Delphi7异常处理机制传统程序设计中,用如下的伪代码方法来检查和处理程序错误:执行一个任务If

7、前一个任务未能正确执行执行错误处理执行下一个任务If 前一个任务未能正确执行执行错误处理Delphi7异常处理机制例;tryAge := StrToInt(Edit1.Text);ShowMessage(Format(生于%d年, YearOf(Now) - Age);excepton EConvertError doshowmessage(输入编辑框的不是一个有效的数字!);on ERangeError doshowmessage(输入编辑框的年龄值太大!);end; 异常类的基类都是Exception类.Delphi7内置了大量的异常类,用户也可以通过Exception类自定义异常类.记住

8、异常类的要点:1 异常类是响应不同异常现象的入口.2 熟悉异常类的层次结构.Exception异常类Exception是所有异常类的基类,它并不是以T开头,而是以E开头,它的派生类也是以E开头的.Exception类定义于SysUtils单元中.Exception类最常用的方法是Create方法:Constructor Create(const Msg:string);(我自己创建的异常!);该方法用于创建一个异常类的实例,也可以显示错误信息,也可直接用这个方法提交一个异常raise (我抛出的异常!);例:tryraise (我抛出的异常!);excepton E: Exception do

9、showmessage(异常类名称: + + #13#10 + 异常信息: + );end;Delphi7内置的异常类Delphi7根据异常现象的类型定义了相应的异常类,这些异常类又称为Delphi7内置的异常类.具体分为运行时库异常类,对象异常类和组件异常类三大类.运行时库异常类(RTL)运行时库异常类可分为以下几种:1 整数计算异常 2 浮点计算异常 3 硬件异常 4 堆异常 5 输入输出异常(I/O异常) 6 字符转换异常 7 类型转换异常 8 哑异常整数计算异常EIntError 整数计算异常(基类)EDivByZero 整数除0溢处EIntOverFlow 整数溢出ERangeErr

10、or 整数越界浮点计算异常EMathError 浮点计算异常(基类)EInvalidOp 无效浮点操作指令Eoverflow 浮点操作上溢Eunderflow 浮点操作下溢EZeroDivide 浮点计算除0硬件异常EProcessorException 硬件异常(基类)ESingleStep 应用程序产生单步中断Ebreakpoint 应用程序产生断点中断Efault 故障(继承EProcessorException,也是基类)EStackFault 对处理器栈段的非法访问EPageFault 内存管理器无法正确使用交换文件EGPFault 保护性错误,一般由未初始化指针或对象造成EInva

11、lidOpCode 处理器遇到未定义指令堆异常和(I/O异常)堆异常:EOutOfMemory 堆中没有足够的内存完成操作EInvalidPointer 试图访问一个堆外的指针(I/O异常)EInOutError DOS输入/输出错误字符转换/类型转换异常和哑异常字符转换异常EConvertError 数字到字符串或字符串到数字转换错误类型转换异常EInvalidCast 类型转换异常哑异常EAbort 调用Abort产生,不显示错误提示框对象异常类对象异常类是针对非组件对象引发的异常而定义的.对象异常类包括:1 流异常类2 打印异常类3 图形异常类4 字符串链表异常类流异常类流异常是指在程序

12、中进行与流相关的基类是EStreamError,其他流异常类都直接或间接从它派生.派生关系见书48页图打印异常打印异常是由于应用程序向不存在的打印机发送打印命令或由于某种原因打印工作无法送到打印机时引发的.打印异常类为Eprinter,定义于Printers单元图形异常图形异常主要包括EInvalidGraphic和EInvalidGraphicOperation两个类均定义于Graphics单元EInvalidGraphic异常满足下列情况之一时引发:当应用程序试图向一个并不包含合法的位图,图象,元文件或用户自定义图形类型的文件中装入图象时.当应用程序试图装入不可识别扩展名的文件时当图象与L

13、oadFromClipboardFormat或SaveToClipboardFormat中的格式不匹配时.当应用程序试图将图象的PixelFormat设为不支持的值EInvalidGraphicOperation异常在满足下列条件之一时发生:应用程序访问图象中不存在的扫描线时.应用程序不能成功写入图象时.应用程序在画布未处于有效状态时进行绘制.应用程序装入未知或不支持的图象格式时.应用程序将图象的PixelFormat设为不支持的值时不能分配该操作的句柄时.字符串链表异常字符串链表异常是由于用户对字符串链表进行非法操作时引发的.包括EStringListError,EListErrorTstr

14、ings抽象类的属性(如Tiistbox组件的Items属性等),因而字符串链表异常在组件编程中很重要.EStringListErrorEListError异常通常在以下情况下发生:当索引项超出链表范围时当字符串链表的Duplicates属性设置为dupError同时应用程序试图加入一个重复的字符串时.当向已排序的字符串链表中插入字符串时.组件异常类组件异常类用于响应组件异常,组件异常是由于对VCL组件进行操作时,违反了组件的使用规则及其特征而引发的,可分为两大类:通用组件异常、专用组件异常、通用组件异常。常见的有非法操作异常,组件异常和资源不足异常三种类型,对应于EInvalidOpetat

15、ion,EComponentError和EOutOfResource异常类.引发非法操作异常的原因有:应用程序试图对Parent属性为nil的组件进行一些需要窗口句柄的操作.试图对窗体拖放操作.引发组件异常的原因有:Delphi不能注册某个组件应用程序不能重命名某个组件资源不足异常被引发是由于当应用程序试图创建窗口句柄而操作系统没有多余的句柄可分配专用组件异常:许多组件都定义了相应的组件异常类.列出几个典型的组件异常类:EMenuErrorMemus单元EInvalidGridOperationEDatabaseError异常.数据库异常是由于对数据库的非法操作引起的.用户自定义异常类创建用户

16、自定义异常类的方法抛出自定义异常用户自定义异常类与内置异常类的区别异常类对象与其他类对象的区别创建用户自定义异常类的方法选择Exception作为基类,按照定义类的一般方法,建立自定义的异常类就可以了.如:typeEMyException = class(Exception)/需要定义属性或方法时,写在此处即可end;抛出自定义异常Delphi不会管理用户自定义异常的抛出,程序员必须自己抛出自己创建的异常.用raise语句可抛出异常:raise (My Exception);用户自定义异常类与内置异常类的区别Delphi不会自动响应用户自定义的异常类,所以用户自定义的异常类需要使用raise语

17、句抛出,而内置异常类与运行期真实的异常现象相对应,当异常发生时,操作系统会捕捉到此异常,通知Delphi去响应.异常类对象与其他类对象的区别异常类对象创建后,不需要由用户释放它,当异常处理之后,系统会自动调用析构函数释放异常类对象.而其他类需要由用户来释放.Delphi7的异常处理结构tryfinally 语句块Tryexcept语句块使用raise抛出异常tryfinally 语句块tryfinally 语句块是用于资源保护和恢复系统状态,不管try部分的操作是否有异常发生,finally部分的操作都要进行.语法如下:try被保护语句finally处理语句(无论异常是否发生,都必须处理)en

18、d;tryfinally 语句块主要用于资源保护应用程序向系统申请了资源(如内存,图形句柄),当不需要这些资源时,就应该及时释放资源.句柄:系统资源是有限的,一般构成一个资源链,链的长度是有限的,当系统给应用程序分配资源时,给每个资源设置一个ID号,这个ID号就是句柄.(系统资源相当于一个个房间,而句柄就相当于房间号.)句柄有限:1 资源是有限的;2数字表达的范围也是有限的(整数有范围的)Tryexcept语句块Tryexcept语句块用于运行期错误处理,程序员可以用它编写对不同类型异常的处理.异常发生后,判断异常的类型,正确处理异常.Tryexcept语句块一般和OnDo子句连用;语法如下:

19、function Test(x, y: Real): Real;begintryResult := x / y;/被保护语句excepton EInvalidOp do Result := 0;/异常处理语句on EZeroDivide do Result := 0;on EOverFlow do Result := 0;on EUnderFlow do Result := 0;end;end;Tryexcept语句块主要处理 缺省异常用户一般只处理一些特殊的异常,并不是处理所有的异常.对那些用户不关心的异常就可以采用缺省异常来处理.try/正常程序代码excepton EExceptionC

20、lass do /处理特定类型的异常else /缺省异常处理end;注:else块必须位于except块的最后,可响应任何类型的异常异常的传递Delphi对异常的处理方式是向后扫描程序的调用栈.假如过程A内有过程保护代码块,在此代码块内又调用了过程B,过程B没有异常保护,过程B调用了过程C,在C内发生了异常.如C内有该异常的处理程序,那么程序调用C的异常处理代码一、异常的来源在Delphi的应用程序中，下列的情况都比较有可能产生异常。（1）文件处理（2）内存分配（3）Windows资源（4）运行时创建对象和窗体（5）硬件和操作系统冲突二、异常的处理（1）tryexceptend;在try体内的

21、代码发生异常时，系统将转向except部分进行异常的处理。这是Delphi处理异常的最基本的方式之一。（2）tryfinallyend;这种异常处理结构一般用于保护Windows的资源分配等方面，它确保了无论try体内的代码是否发生异常，都需要由系统进行最后的统一处理的一些Windows对象的正确处理。和tryexceptend不同，该结构的finally部分总被执行。（3）不存在tryexceptfinallyend结构来既处理异常，又保护资源分配的结构，但是，tryexceptend结构允许嵌套到tryfinallyend结构中，从而实现既处理异常，又保护资源的分配。三、异常的精确处理（1

22、）定义一个异常。在Delphi中，每个异常都是Exception1类的一个派生类2。因此，定义一个异常就是定义一个Exception类的派生类。type EMyException = class(Exception);当然，基类可以是Exception或者Exception的任何一个任何层次的派生类。（2）在程序中抛出一个异常。根据不同的情况抛出异常是使用异常的最基本的模式。在Delphi中，由raise语句来实现。【语法】raise 异常类.Create(异常的缺省说明);（3）在tryexceptend中更加精确的捕捉异常。使用on E:异常类 do结构可以在do体内处理特定异常类所抛出的

23、异常。四、异常的调试在Delphi IDE中，解除“Debugger Options”（可以使用菜单ToolsDebugger Options进行访问）中的Integrated Debugging复选框的勾选状态可以进行异常的调试。五、异常的补充说明（1）每一段程序都有可能产生错误！这是软件业的一个不容置疑的现象和规律。事实上，传统的ifelse结构完全可以解决所有的错误，使用Exception机制也没能够回避在最原始的层次，通过遍历可能的情况来产生异常的做法，那么，为什么还要异常机制？答案很清楚：异常提供了一种更加灵活和开放的方式，使得后来的编程者可以来根据实际的情况处理这种错误，而不是使用

24、预先设定好的处理结果。结构化异常处理是Delphi语言内建的特性.为我们处理异常提供了方便.处理异常有两方面:1 异常处理可确保适当地恢复在应用程序中分配或改变的任何资源.2 结构化异常处理为开发人员提供了一种一致的处理各种类型运行期错误的方式Delphi7异常处理机制异常处理的基本思想是通过提供规范方式处理软,硬件错误的能力,使程序更加健壮.异常处理可以将处理错误的代码与正常的逻辑处理代码相分离.Delphi缺省的方式是在应用程序收到异常之前捕获异常.IDE会给出一个”预警”对话框,以指明应用程序将要产生异常.异常处理机制是一种程序设计安全策略,它是建立在保护块思想上,通过try和end语句

25、块对代码的封装确保在程序发生异常时,程序能够正常运行或释放所占用的资源.Delphi7异常处理机制传统程序设计中,用如下的伪代码方法来检查和处理程序错误:执行一个任务If 前一个任务未能正确执行执行错误处理执行下一个任务If 前一个任务未能正确执行执行错误处理Delphi7异常处理机制例;try Age := StrToInt(Edit1.Text); ShowMessage(Format(生于%d年, YearOf(Now) - Age); except on EConvertError do showmessage(输入编辑框的不是一个有效的数字!); on ERangeError do

26、showmessage(输入编辑框的年龄值太大!); end;异常类Delphi7根据异常类型定义了相应的异常类.所有异常类的基类都是Exception类.Delphi7内置了大量的异常类,用户也可以通过Exception类自定义异常类.记住异常类的要点:1 异常类是响应不同异常现象的入口.2 熟悉异常类的层次结构.Exception异常类Exception是所有异常类的基类,它并不是以T开头,而是以E开头,它的派生类也是以E开头的.Exception类定义于SysUtils单元中.Exception类最常用的方法是Create方法:Constructor Create(const Msg:s

27、tring);(我自己创建的异常!);该方法用于创建一个异常类的实例,也可以显示错误信息,也可直接用这个方法提交一个异常raise (我抛出的异常!);例:try raise (我抛出的异常!); except on E: Exception do showmessage(异常类名称: + + #13#10 + 异常信息: + ); end;Delphi7内置的异常类Delphi7根据异常现象的类型定义了相应的异常类,这些异常类又称为Delphi7内置的异常类.具体分为运行时库异常类,对象异常类和组件异常类三大类.运行时库异常类(RTL)运行时库异常类可分为以下几种:1 整数计算异常 2 浮点

28、计算异常 3 硬件异常 4 堆异常 5 输入输出异常(I/O异常) 6 字符转换异常 7 类型转换异常 8 哑异常整数计算异常EIntError 整数计算异常(基类)EDivByZero 整数除0溢处EIntOverFlow 整数溢出ERangeError 整数越界浮点计算异常EMathError 浮点计算异常(基类)EInvalidOp 无效浮点操作指令Eoverflow 浮点操作上溢Eunderflow 浮点操作下溢EZeroDivide 浮点计算除0硬件异常EProcessorException 硬件异常(基类)ESingleStep 应用程序产生单步中断Ebreakpoint 应用程序

29、产生断点中断Efault 故障(继承EProcessorException,也是基类)EStackFault 对处理器栈段的非法访问EPageFault 内存管理器无法正确使用交换文件EGPFault 保护性错误,一般由未初始化指针或对象造成EInvalidOpCode 处理器遇到未定义指令堆异常和(I/O异常)堆异常:EOutOfMemory 堆中没有足够的内存完成操作EInvalidPointer 试图访问一个堆外的指针(I/O异常)EInOutError DOS输入/输出错误字符转换/类型转换异常和哑异常字符转换异常EConvertError 数字到字符串或字符串到数字转换错误类型转换异

30、常EInvalidCast 类型转换异常哑异常EAbort 调用Abort产生,不显示错误提示框对象异常类对象异常类是针对非组件对象引发的异常而定义的.对象异常类包括:1 流异常类2 打印异常类3 图形异常类4 字符串链表异常类流异常类流异常是指在程序中进行与流相关的操作时产生的异常.流异常类的基类是EStreamError,其他流异常类都直接或间接从它派生.派生关系见书48页图打印异常打印异常是由于应用程序向不存在的打印机发送打印命令或由于某种原因打印工作无法送到打印机时引发的.打印异常类为Eprinter,定义于Printers单元图形异常图形异常主要包括EInvalidGraphic和E

31、InvalidGraphicOperation两个类均定义于Graphics单元EInvalidGraphic异常满足下列情况之一时引发:当应用程序试图向一个并不包含合法的位图,图象,元文件或用户自定义图形类型的文件中装入图象时.当应用程序试图装入不可识别扩展名的文件时当图象与LoadFromClipboardFormat或SaveToClipboardFormat中的格式不匹配时.当应用程序试图将图象的PixelFormat设为不支持的值EInvalidGraphicOperation异常在满足下列条件之一时发生:应用程序访问图象中不存在的扫描线时.应用程序不能成功写入图象时.应用程序在画布

32、未处于有效状态时进行绘制.应用程序装入未知或不支持的图象格式时.应用程序将图象的PixelFormat设为不支持的值时不能分配该操作的句柄时.字符串链表异常字符串链表异常是由于用户对字符串链表进行非法操作时引发的.包括EStringListError,EListError等.由于许多部件都有一个Tstrings抽象类的属性(如Tiistbox组件的Items属性等),因而字符串链表异常在组件编程中很重要.EStringListError一般在字符串链表越界时产生.而EListError异常通常在以下情况下发生:当索引项超出链表范围时当字符串链表的Duplicates属性设置为dupError同

33、时应用程序试图加入一个重复的字符串时.当向已排序的字符串链表中插入字符串时.组件异常类组件异常类用于响应组件异常,组件异常是由于对VCL组件进行操作时,违反了组件的使用规则及其特征而引发的,可分为两大类:通用组件异常、专用组件异常、通用组件异常。常见的有非法操作异常,组件异常和资源不足异常三种类型,对应于EInvalidOpetation,EComponentError和EOutOfResource异常类.引发非法操作异常的原因有:应用程序试图对Parent属性为nil的组件进行一些需要窗口句柄的操作.试图对窗体拖放操作.引发组件异常的原因有:Delphi不能注册某个组件应用程序不能重命名某个

34、组件资源不足异常被引发是由于当应用程序试图创建窗口句柄而操作系统没有多余的句柄可分配专用组件异常:许多组件都定义了相应的组件异常类.列出几个典型的组件异常类:EMenuError异常,菜单异常,是由于程序对菜单的非法操作而引发的.定义于Memus单元EInvalidGridOperation异常.非法的网格操作,如试图引用一个不存在的网格单元时引发.定义于Grids单元EDatabaseError异常.数据库异常是由于对数据库的非法操作引起的.用户自定义异常类创建用户自定义异常类的方法抛出自定义异常用户自定义异常类与内置异常类的区别异常类对象与其他类对象的区别创建用户自定义异常类的方法选择Ex

35、ception作为基类,按照定义类的一般方法,建立自定义的异常类就可以了.如:type EMyException = class(Exception)/需要定义属性或方法时,写在此处即可 end;抛出自定义异常Delphi不会管理用户自定义异常的抛出,程序员必须自己抛出自己创建的异常.用raise语句可抛出异常:raise (My Exception);用户自定义异常类与内置异常类的区别Delphi不会自动响应用户自定义的异常类,所以用户自定义的异常类需要使用raise语句抛出,而内置异常类与运行期真实的异常现象相对应,当异常发生时,操作系统会捕捉到此异常,通知Delphi去响应.异常类对象与

36、其他类对象的区别异常类对象创建后,不需要由用户释放它,当异常处理之后,系统会自动调用析构函数释放异常类对象.而其他类需要由用户来释放.Delphi7的异常处理结构tryfinally 语句块Tryexcept语句块使用raise抛出异常tryfinally 语句块tryfinally 语句块是用于资源保护和恢复系统状态,不管try部分的操作是否有异常发生,finally部分的操作都要进行.语法如下:try 被保护语句 finally 处理语句(无论异常是否发生,都必须处理) end;tryfinally 语句块主要用于资源保护应用程序向系统申请了资源(如内存,图形句柄),当不需要这些资源时,就

37、应该及时释放资源.句柄:系统资源是有限的,一般构成一个资源链,链的长度是有限的,当系统给应用程序分配资源时,给每个资源设置一个ID号,这个ID号就是句柄.(系统资源相当于一个个房间,而句柄就相当于房间号.)句柄有限:1 资源是有限的;2数字表达的范围也是有限的(整数有范围的)Tryexcept语句块Tryexcept语句块用于运行期错误处理,程序员可以用它编写对不同类型异常的处理.异常发生后,判断异常的类型,正确处理异常.Tryexcept语句块一般和OnDo子句连用;语法如下:function Test(x, y: Real): Real;begin try Result := x / y;

38、/被保护语句 except on EInvalidOp do Result := 0;/异常处理语句 on EZeroDivide do Result := 0; on EOverFlow do Result := 0; on EUnderFlow do Result := 0; end;end;Tryexcept语句块主要处理 缺省异常用户一般只处理一些特殊的异常,并不是处理所有的异常.对那些用户不关心的异常就可以采用缺省异常来处理.try/正常程序代码 except on EExceptionClass do /处理特定类型的异常 else /缺省异常处理end;注:else块必须位于except块的最后,可响应任何类型的异常异常的传递Delphi对异常的处理方式是向后扫描程序的调用栈.假如过程A内有过程保护代码块,在此代码块内又调用了过程B,过程B没有异常保护,过程B调用了过程C,在C内发生了异常.如C内有该异常的处理程序,那么程序调用C的异常处理代码