对象异常类
所谓对象异常是指非部件的对象引发的异常 Delphi定义的对象异常包括流异常 打印异常 图形异常 字符串链表异常等
流异常类
流异常类包括EStreamError EFCreateError EFOpenError EFilerError EReadError EWriteError EClassNotFound 它们的结构关系如下
EStreamError
| EFCreateError
| EFOpenError
| EFilerError
| EReadError
| EWriteError
| EClassNotFound
流异常在Classes库单元中定义
流异常引发的原因如表
表 流异常类及其产生原因
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
异常类 引发原因
─────────────────────────────────
EStreamError 利用LoadFromStream方法读一个流发生错误
EFCreateError 创建文件时发生错误
EFOpenError 打开文件时发生错误
EFilerError 试图再次登录一个存在的对象
EReadError ReadBuffer方法不能读取特定数目的字节
EWriteError WriteBuffer方法不能写特定数目的字节
EClassNotFound 窗口上的部件被从窗口的类型定义中删除
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
打印异常类
打印异常类EPrinter当打印发生错误时引发 它在printers库单元中定义 例如你的应用程序试图向一个不存在的打印机打印或由于某种原因打印工作无法送到打印机时 就会产生一个打印异常
图形异常类
图形异常类定义在Graphic 库单元中 包括EInvalidGraphic和EInvalidGraphicOperation两类
EInvalidGraphic当应用程序试图从一个并不包含合法的位图 图标 元文件或用户自定义图形类型的文件中装入图形时引发 例如下面的代码
Image Picture LoadFromFile（ Readme txt ）
由于Readme txt并不包含一个合法的图形 因而将引发一个EInvalidGraphic异常
EInvalidGraphicOperation当试图对一个图形进行非法操作时引发 例如试图改变一个图标的大小
var
AnIcon: TIcon;
begin
AnIcon := TIcon Create;
AnIcon LoadFromFile（ C:\WINDOWS\DIRECTRY ICO ）
AnIcon Width := ; { 引发一个图形异常 }
…
字符串链表异常
字符串链表异常EStringListError EListError在用户对字符串链表进行非法操作时引发 由于许多部件（如TListBox TMemo TTabSet …）都有一个TStrings类的重要属性 因而字符串链表异常在部件操作编程中非常有用
EStringListError异常一般在字符串链表越界时产生 例如对如下初始化的列表框
ListBox Items Add（ First item ）
ListBox Items Add（ Second item ）
ListBox Items Add（ Third item ）
则以下操作都会引起EStringListError异常
ListBox Item[ ] := Not Exist ;
str := ListBox Item [ ];
EListError异常一般在如下两种情况下引发
当字符串链表的Duplicates属性设置为dupError时 应用程序试图加入一个重复的字符串
试图往一个排序的字符串链表中插入一个字符串
部件异常类
通用部件异常类
通用部件异常类常用的有三个 EInvalidOperation EComponentError EOutOfResource 其中EInvalidOperation EOutOfResource在Controls单元中定义 EComponentError在Classes单元中定义
非法操作异常 EInvalidOperation
EInvalidOperation 引发的原因可能有
● 应用程序试图对一个Parent属性为nil的部件进行一些需要Windows句柄的操作
● 试图对一个窗口进行拖放操作
● 操作违反了部件属性间内置的相互关系等
例如 ScrollBar Gauge等部件要求Max属性大于等于Min属性 因而下面的语句
ScrollBar Max := ScrollBar Min ;
将引发一个EInvalidOperation异常
部件异常EComponentError
引发该异常的原因可能有
● 在Register过程之外试图登录一个部件（常用于自定义部件开发中）
● 应用程序在运行中改变了一个部件的名称并使该部件与另一个部件重名
● 一个部件的名称改变为一个Object Pascal非法的标识符
● 动态生成一个部件与已存在的另一部件重名
资源耗尽异常EOutOfResource
当应用程序试图创建一个Windows句柄而Windows 却没有多余的句柄分配时引发该异常
专用部件异常类
许多部件都定义了相应的部件异常类 但并不是有关部件的任何错误都会引发相应的异常类 许多情况下它们将引发一个运行时间异常或对象异常
下面列出几个典型的部件异常类
EMenuError
非法的菜单操作 例如试图删除一个不存在的菜单项 这一异常类在Menus库单元中定义
EInvalidGridOpertion
非法的网格操作 比如试图引用一个不存在的网格单元 这一异常类在Grids库单元中定义
EDDEError
DDE异常 比如应用程序找不到特定的服务器或会话 或者一个联接意外中止 这一异常类在DDEMan库单元中定义
EDatabaseError EReportError
数据库异常（EDatabaseError）和报表异常（EReportError） 在进行数据库和报表操作出现错误时引发 有关数据库的问题请读者参阅本书第二编
小结
在这一节中重点介绍了Delphi提供的异常类体系 我们力求给读者一个清晰 全面的印象 使读者能在自己的程序开发中实际使用它们 为便于理解我们也提供了一些简单的说明性示例 虽然在具体的使用中读者还可能会碰到许多问题 但意识到应该用异常类来增强程序的健壮性却是程序设计水平走上新台阶的标志
异常保护
确保回收分配的资源是程序健壮性的一个关键 但缺省情况下异常发生时程序会在出错点自动退出当前模块 因此需要一种特殊的机制来确保即使在异常发生的情况下释放资源的语句仍能被执行 而Delphi的异常处理正提供了这种机制
需要保护的资源
一般说来需要保护的资源包括
● 文件
● 内存
● Windows资源
● 对象
比如下面一段程序就会造成 K内存资源的丢失
var
APointer : Pointer ;
AInt ADiv: Integer ;
begin
ADiv := ;
GetMem （ APointer ）
AInt := div ADiv ;
FreeMem （ Apointer ）
end;
由于程序从异常发生点退出从而FreeMem永远没有执行的机会
lishixinzhi/Article/program/Delphi/201311/25193