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

~

　　 对象异常类

　　所谓对象异常是指非部件的对象引发的异常 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

---

临淄区15849266070： 求Delphi中关于异常的处理语句 - ？
东郭纪炉甘： No.1:Try except //异常才来这里 end; No.2:Try finally //无论异常与否都来这里 end; No.3:DELPHI里没有下面这种用法 Try except finally end; 上面这种写法可以这样写:Try try except end; finally end;

临淄区15849266070： delphi中Exception类怎么使用 - ？
东郭纪炉甘： Exception 类是 delphi 的异常处理类,在Delphi中,每个异常都是 Exception 类的一个派生类.该类的使用通常如下:1、手动抛出异常 begin raise Exception.Create('异常信息说明文字'); end;2、定义异常、捕获异常 try Age :=StrToInt(Edit1....

临淄区15849266070： delphi 异常处理?？
东郭纪炉甘： try table.delete; post;except showmessage('操作失败!'); table.cancel; raise;end;

临淄区15849266070： 在Delphi程序中try语句是什么语句,怎么用,请给指导. - ？
东郭纪炉甘： 异常处理语句,有两种 第一种 tryd := 6 div 0; //明显错误,会抛出异常.除数不能为0 excepton E:Exception doShowMessage(e.message); // 在这里处理你的异常,我这里显示出错误消息,当然可以自己定义 end;第二种 a := TStringList.create trya.add('1');Showmessage(a.strings[2]); //明显错误,程序异常中断不使用异常处理代码的将不会执行到a.free,如果使用了try ..finally..end; 不管异常是否出现都将释放资源 finallya.free; //释放 end;

临淄区15849266070： delphi 怎么处理一个异常？
东郭纪炉甘： try begin 可能出现异常的代码 endexception on E: EDatabaseError do begin MessageBox(Handle, '这个数据库不存在,请再选择', '消息窗口', MB_OK + MB_ICONSTOP); ... end;end;

临淄区15849266070： Delphi异常处理？
东郭纪炉甘： 其实没必要用try except 你可判断文本框是不是输入值即 if Trim(edit2.text)='' then begin ShowMessage('请输入值'); exit; else 你要写的代码 还有就是如果通过Edit2.text 给其赋值的话 要注意文本框的限制只能是数字 不然也会出错的

临淄区15849266070： DELPHI:QQ好友列表是用的什么控件 - ？
东郭纪炉甘： QQ大部分都是自绘的,除了浏览器相关的东西.参考资料当然有了,看Virtual Treeview那超过1M的源码就行了!

临淄区15849266070： delphi 关于异常处理的问题,请教各路大侠!!!？
东郭纪炉甘： 如果没有except end 会以提示框的形式报错 举个例子 比如做一个除法 被除数是0 这是会报异常的 如果 有try except 那么 你可以 在里面用showmessage(＂你的数据有错误＂)这样友好的形式进行提示,当然也可以不提示 如果没有 try except 那么就会弹出一个全英文的系统提示框

临淄区15849266070： delphi 中判断异常处理的语句是什么? - ？
东郭纪炉甘： try {......} excepton E: Exception do begin showmessage(e.message); end; end;

临淄区15849266070： delphi获取程序异常信息 - ？
东郭纪炉甘： ======================补充回答===============如果是要求获取整个程序出错的地方,那么需要在工程文件里写异常处理代码:program Project1;usesForms, SysUtils,Unit1 in 'Unit1.pas' {Form1};{$R *.res}begintryApplication....