DELPHI基础教程：异常处理与程序调试（一）[3]

对象异常类

所谓对象异常是指非部件的对象引发的异常Delphi定义的对象异常包括流异常打印异常图形异常字符串链表异常等

流异常类

流异常类包括EStreamErrorEFCreateError EFOpenErrorEFilerErrorEReadErrorEWriteErrorEClassNotFound它们的结构关系如下

EStreamError

| EFCreateError

| EFOpenError

| EFilerError

| EReadError

| EWriteError

| EClassNotFound

流异常在Classes库单元中定义

流异常引发的原因如表

表 流异常类及其产生原因

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

异常类 引发原因

─────────────────────────────────

EStreamError 利用LoadFromStream方法读一个流发生错误

EFCreateError 创建文件时发生错误

EFOpenError 打开文件时发生错误

EFilerError 试图再次登录一个存在的对象

EReadError ReadBuffer方法不能读取特定数目的字节

EWriteError WriteBuffer方法不能写特定数目的字节

EClassNotFound 窗口上的部件被从窗口的类型定义中删除

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

打印异常类

打印异常类EPrinter当打印发生错误时引发它在printers库单元中定义例如你的应用程序试图向一个不存在的打印机打印或由于某种原因打印工作无法送到打印机时就会产生一个打印异常

图形异常类

图形异常类定义在Graphic 库单元中包括EInvalidGraphic和EInvalidGraphicOperation两类

EInvalidGraphic当应用程序试图从一个并不包含合法的位图图标元文件或用户自定义图形类型的文件中装入图形时引发例如下面的代码

ImagePictureLoadFromFile（Readmetxt）

由于Readmetxt并不包含一个合法的图形因而将引发一个EInvalidGraphic异常

EInvalidGraphicOperation当试图对一个图形进行非法操作时引发例如试图改变一个图标的大小

var

AnIcon: TIcon;

begin

AnIcon := TIconCreate;

AnIconLoadFromFile（C:\WINDOWS\DIRECTRYICO）

AnIconWidth := ; { 引发一个图形异常 }

…

字符串链表异常

字符串链表异常EStringListErrorEListError在用户对字符串链表进行非法操作时引发由于许多部件（如TListBoxTMemoTTabSet…）都有一个TStrings类的重要属性因而字符串链表异常在部件操作编程中非常有用

EStringListError异常一般在字符串链表越界时产生例如对如下初始化的列表框

ListBoxItemsAdd（First item）

ListBoxItemsAdd（Second item）

ListBoxItemsAdd（Third item）

则以下操作都会引起EStringListError异常

ListBoxItem[] := Not Exist;

str := ListBoxItem [];

EListError异常一般在如下两种情况下引发

当字符串链表的Duplicates属性设置为dupError时应用程序试图加入一个重复的字符串

试图往一个排序的字符串链表中插入一个字符串

部件异常类

通用部件异常类

通用部件异常类常用的有三个EInvalidOperationEComponentErrorEOutOfResource其中EInvalidOperationEOutOfResource在Controls单元中定义EComponentError在Classes单元中定义

非法操作异常 EInvalidOperation

EInvalidOperation 引发的原因可能有

● 应用程序试图对一个Parent属性为nil的部件进行一些需要Windows句柄的操作

● 试图对一个窗口进行拖放操作

● 操作违反了部件属性间内置的相互关系等

例如ScrollBarGauge等部件要求Max属性大于等于Min属性因而下面的语句

ScrollBarMax := ScrollBarMin;

将引发一个EInvalidOperation异常

部件异常EComponentError

引发该异常的原因可能有

● 在Register过程之外试图登录一个部件（常用于自定义部件开发中）

● 应用程序在运行中改变了一个部件的名称并使该部件与另一个部件重名

● 一个部件的名称改变为一个Object Pascal非法的标识符

● 动态生成一个部件与已存在的另一部件重名

资源耗尽异常EOutOfResource

当应用程序试图创建一个Windows句柄而Windows 却没有多余的句柄分配时引发该异常

专用部件异常类

许多部件都定义了相应的部件异常类但并不是有关部件的任何错误都会引发相应的异常类许多情况下它们将引发一个运行时间异常或对象异常

下面列出几个典型的部件异常类

EMenuError

非法的菜单操作例如试图删除一个不存在的菜单项这一异常类在Menus库单元中定义

EInvalidGridOpertion

非法的网格操作比如试图引用一个不存在的网格单元这一异常类在Grids库单元中定义

EDDEError

DDE异常比如应用程序找不到特定的服务器或会话或者一个联接意外中止这一异常类在DDEMan库单元中定义

EDatabaseErrorEReportError

数据库异常（EDatabaseError）和报表异常（EReportError） 在进行数据库和报表操作出现错误时引发有关数据库的问题请读者参阅本书第二编

小结

在这一节中重点介绍了Delphi提供的异常类体系我们力求给读者一个清晰全面的印象使读者能在自己的程序开发中实际使用它们为便于理解我们也提供了一些简单的说明性示例虽然在具体的使用中读者还可能会碰到许多问题但意识到应该用异常类来增强程序的健壮性却是程序设计水平走上新台阶的标志

异常保护

确保回收分配的资源是程序健壮性的一个关键但缺省情况下异常发生时程序会在出错点自动退出当前模块因此需要一种特殊的机制来确保即使在异常发生的情况下释放资源的语句仍能被执行而Delphi的异常处理正提供了这种机制

需要保护的资源

一般说来需要保护的资源包括

● 文件

● 内存

● Windows资源

● 对象

比如下面一段程序就会造成K内存资源的丢失

var

APointer : Pointer ;

AInt ADiv: Integer ;

begin

ADiv := ;

GetMem （ APointer ）

AInt := div ADiv ;

FreeMem （ Apointer ）

end;

由于程序从异常发生点退出从而FreeMem永远没有执行的机会

[] [] [] []