📄 028.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>—DELPHI基础教程—第十二章 异常处理与程序调试（一）</TITLE><META NAME="keywords" CONTENT=" DELPHI基础教程 第十二章 异常处理与程序调试（一）"><META NAME="description" CONTENT=" - DELPHI基础教程 - 第十二章 异常处理与程序调试（一）"><style><!--#page {position:absolute; z-index:0; left:0px; top:0px}.tt3 {font: 9pt/12pt "宋体"}.tt2 {font: 12pt/15pt "宋体"}a {text-decoration:none}a:hover {color: blue;text-decoration:underline}--></style></HEAD><body text="#000000" bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3"><TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0><TR><TD CLASS="tt3" VALIGN="top" width="8%" ><strong><A HREF="029.htm"><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR><A HREF="027.htm"><FONT style="FONT-SIZE: 9pt">前一页</font></A><BR><A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目录</font></A><BR></strong></TD><TD class="tt2" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="隶书">第十二章 异常处理与程序调试（一）</FONT></B></center><hr width="94%"><p> 在应用程序开发中如何检测、处理程序的运行错误是一个很重要的问题。在</font>Delphi <font face="宋体" lang="ZH-CN">的集成开发环境</font>( IDE )<fontface="宋体" lang="ZH-CN">中提供了一个完善的内置调试器，可以帮助你发现大部分程序错误。但并不是所有的错误都可以被发现，而且当程序涉及到与外设的数据交换或操作外设，如要求用户输入、读写磁盘等时，错误的发生是程序无法控制的，如输入非法字符、磁盘不能读写等。这些情况不仅会导致应用程序异常中止而且可能引起系统的崩溃。针对这些问题，</font>Delphi<fontface="宋体" lang="ZH-CN">同时提供了一套强大的异常处理机制。巧妙地利用它，可以使你的程序更为强健，使用更为友好。</p><p> 虽然</font>Delphi<font face="宋体" lang="ZH-CN">为应用程序提供了一套缺省的自动异常处理机制，即当前模块发生错误后退出当前模块并给出错误信息，而并不立即引起应用程序的中止。但当应用程序执行的过程性很强时，仅仅利用这种方法是不够的，而且很容易导致程序执行的不可预测性。 </p></font><p align="center">12.1<font face="宋体" lang="ZH-CN"> </font>Delphi<fontface="宋体" lang="ZH-CN">异常处理机制与异常类 </p></font><p><font face="宋体" lang="ZH-CN"> </font>Delphi<font face="宋体"lang="ZH-CN">异常处理机制建立在保护块</font>(Protected Blocks)<fontface="宋体" lang="ZH-CN">的概念上。所谓保护块是用保留字</font>try<fontface="宋体" lang="ZH-CN">和</font>end<font face="宋体" lang="ZH-CN">封装的一段代码。保护块的作用是当应用程序发生错误时自动创建一个相应的异常类</font>(Exception)<fontface="宋体" lang="ZH-CN">。程序可以捕获并处理这个异常类，以确保程序的正常结束以及资源的释放和数据不受破坏。如果程序不进行处理，则系统会自动提供一个消息框。</p><p> 异常类是</font>Delphi<font face="宋体" lang="ZH-CN">异常处理机制的核心，也是</font>Delphi<fontface="宋体" lang="ZH-CN">异常处理的主要特色。下面我们对异常类的概念和体系进行详细的介绍。</p><p> </font>Delphi<font face="宋体" lang="ZH-CN">提供的所有异常类都是类</font>Exception<fontface="宋体" lang="ZH-CN">的子类。用户也可以从</font>Exception<fontface="宋体" lang="ZH-CN">派生一个自定义的异常类。</p><p> </font>Exception<font face="宋体" lang="ZH-CN">类的定义如下，对于不常用的成员没有列出。 </p></font><p>{SysUtils <font face="宋体" lang="ZH-CN">单元中}</p></font><p>Exception = class(TObject)</p><p>private</p><p>FMessage: PString;</p><p>FHelpContext: Longint;</p><p>function GetMessage: String;</p><p>procedure SetMessage(const Value: String);</p><p>public</p><p>constructor Create(const Msg: String);</p><p>constructor CreateFmt(const Msg: String; const Args: array of const);. . . </p><p>destructor Destroy; override;</p><p>property HelpContext: Longint </p><p>property Message: String;</p><p>property MessagePtr: PString;</p><p>end; </p><p>Exception<font face="宋体" lang="ZH-CN">的一系列构造函数中最重要的参数是显示的错误信息。而数据成员中最重要的也是可被引用的消息字符串</font>(message<fontface="宋体" lang="ZH-CN">，</font>messagePtr)<font face="宋体" lang="ZH-CN">。</font><font face="宋体" lang="ZH-CN">这些信息分别对自定义一个异常类和处理一个异常类有重要作用。</p><p> </font>Delphi<font face="宋体" lang="ZH-CN">提供了一个很庞大的异常类体系，这些异常类几乎涉及到编程的各个方面。从大的方面我们可以把异常类分为运行时间库异常、对象异常、部件异常三类。下面我们分别进行介绍。 </p></font><p>12.1.1 <font face="宋体" lang="ZH-CN">运行时间库异常类</font>(RTLException) </p><font face="宋体" lang="ZH-CN"><p> 运行时间库异常可以分为七类，它们都定义在</font>SysUtils<fontface="宋体" lang="ZH-CN">库单元中。 </p></font><p>12.1.1.1 I/O<font face="宋体" lang="ZH-CN">异常 </p><p> </font>I/O<font face="宋体" lang="ZH-CN">异常类</font>EInOutError<fontface="宋体" lang="ZH-CN">是在程序运行中试图对文件或外设进行操作失败后产生的，它从</font>Exception<fontface="宋体" lang="ZH-CN">派生后增加了一个公有数据成员</font>ErrorCode<fontface="宋体" lang="ZH-CN">，用于保存所发生错误的代码。这一成员可用于在发生</font>I/O<fontface="宋体" lang="ZH-CN">异常后针对不同情况采取不同的对策。</p><p> 当设置编译指示{</font>$I- } <font face="宋体" lang="ZH-CN">时，不产生</font>I/O<fontface="宋体" lang="ZH-CN">异常类而是把错误代码返回到预定义变量</font>IOResult<fontface="宋体" lang="ZH-CN">中。 </p></font><p>12.1.1.2 <font face="宋体" lang="ZH-CN">堆异常 </p><p> 堆异常是在动态内存分配中产生的，包括两个类</font>EOutOfMemory<fontface="宋体" lang="ZH-CN">和</font>EInvalidPointer<font face="宋体" lang="ZH-CN">。</font></p><font face="宋体" lang="ZH-CN"><p>表</font>12.1<font face="宋体" lang="ZH-CN"> 堆异常类及其产生原因</p><p>━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p><p>异常类 引发原因</p><p>─────────────────────────────────</p></font><p>EOutOfMemory <font face="宋体" lang="ZH-CN">没有足够的空间用于满足所要求的内存分配</p></font><p>EInvalidPointer <font face="宋体" lang="ZH-CN">非法指针。一般是由于程序试图去释放一个业已释放的指针而引起的</font></p><p><font face="宋体" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ </p></font><p>12.1.1.3<font face="宋体" lang="ZH-CN"> 整数异常 </p><p> 整数异常都是从一个</font>EIntError<font face="宋体" lang="ZH-CN">类派生的，但程序运行中引发的总是它的子类：</font>EDivByZero<fontface="宋体" lang="ZH-CN">，</font>ERangeError<font face="宋体" lang="ZH-CN">，</font>EIntOverFlow<fontface="宋体" lang="ZH-CN">。 </p><p> 表</font>12.2<font face="宋体" lang="ZH-CN"> 整数异常及其产生原因</p><p>━━━━━━━━━━━━━━━━━━━━━</p><p>异常类 引发原因</p><p>─────────────────────</p></font><p>EDivByZero <font face="宋体" lang="ZH-CN">试图被零除</p></font><p>ERangeError <font face="宋体" lang="ZH-CN">整数表达式越界</p></font><p>EIntOverFlow <font face="宋体" lang="ZH-CN">整数操作溢出</font></p><p><font face="宋体" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━ </p><p> </font>ERangeError<font face="宋体" lang="ZH-CN">当一个整数表达式的值超过为一个特定整数类型分配的范围时引发。比如下面一段代码将引发一个</font>ERangeError<fontface="宋体" lang="ZH-CN">异常。 </p></font><p>var</p><p>SmallNumber: ShortInt;</p><p>X , Y: Integer;</p><p>begin</p><p>X := 100;</p><p>Y := 75;</p><p>SmallNumber := X * Y;</p><p>end;</p><font face="宋体" lang="ZH-CN"><p> 特定整数类型包括</font>ShortInt<fontface="宋体" lang="ZH-CN">、</font>Byte<font face="宋体" lang="ZH-CN">以及与整数兼容的枚举类型、布尔类型等。例如： </p></font><p>type</p><p>THazard = ( Safety , Marginal , Critical , Catastrophic );</p><p>var</p><p>Haz: THazard;</p><p>Item: Integer;</p><p>begin</p><p>Item:= 4;</p><p>Haz:= THazard ( Item );</p><p>end; </p><p><font face="宋体" lang="ZH-CN">由于枚举数越界而引发一个</font>ERangeError<fontface="宋体" lang="ZH-CN">异常。</p><p> 数组元素越界也会引发一个</font>ERangeError<font face="宋体"lang="ZH-CN">异常，如： </p></font><p>var</p><p>Values: array[1..10] of Integer;</p><p>i: Integer;</p><p>begin</p><p>for i := 1 to 11 do</p><p>Values[i] := i;</p><p>end;</p><p>ERangeError<font face="宋体" lang="ZH-CN">异常只有当类型检查打开时才会引发。这可以在代码中包含{</font>$R+}<font face="宋体" lang="ZH-CN">编译指示或设置</font>IDE Option|Project<fontface="宋体" lang="ZH-CN">的</font>Range_Checking Option<font face="宋体" lang="ZH-CN">选择框。</p><p> </font>EIntOverFlow<font face="宋体" lang="ZH-CN">异常类在</font>Integer<fontface="宋体" lang="ZH-CN">、</font>Word<font face="宋体" lang="ZH-CN">、</font>Longint<fontface="宋体" lang="ZH-CN">三种整数类型越界时引发。如：</font></p><p>var</p><p>I : Integer;</p><p>a,b,c : Word; </p><p>begin</p><p>a := 10;</p><p>b := 20;</p><p>c := 1;</p><p>for I := 0 to 100 do</p><p>begin</p><p>c := a*b*c;</p><p>end;</p><p>end;</p><p><font face="宋体" lang="ZH-CN">引发一个</font>EIntOverFlow<font face="宋体"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -