?? 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" aLink=#9900ff link=#006699 vLink=#006699 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" background="bg.gif"><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>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第十二章 異常處理與程序調試(一)</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p> 在應用程序開發中如何檢測、處理程序的運行錯誤是一個很重要的問題。在</font>
Delphi <font face="宋體" lang="ZH-CN">的集成開發環境</font>( IDE )<font
face="宋體" lang="ZH-CN">中提供了一個完善的內置調試器,可以幫助你發現大部分程序錯誤。但并不是所有的錯誤都可以被發現,而且當程序涉及到與外設的數據交換或操作外設,如要求用戶輸入、讀寫磁盤等時,錯誤的發生是程序無法控制的,如輸入非法字符、磁盤不能讀寫等。這些情況不僅會導致應用程序異常中止而且可能引起系統的崩潰。針對這些問題,</font>Delphi<font
face="宋體" 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<font
face="宋體" lang="ZH-CN">異常處理機制與異常類 </p>
</font><p><font face="宋體" lang="ZH-CN"> </font>Delphi<font face="宋體"
lang="ZH-CN">異常處理機制建立在保護塊</font>(Protected Blocks)<font
face="宋體" lang="ZH-CN">的概念上。所謂保護塊是用保留字</font>try<font
face="宋體" lang="ZH-CN">和</font>end<font face="宋體" lang="ZH-CN">封裝的一段代碼。保護塊的作用是當應用程序發生錯誤時自動創建一個相應的異常類</font>(Exception)<font
face="宋體" lang="ZH-CN">。程序可以捕獲并處理這個異常類,以確保程序的正常結束以及資源的釋放和數據不受破壞。如果程序不進行處理,則系統會自動提供一個消息框。</p>
<p> 異常類是</font>Delphi<font face="宋體" lang="ZH-CN">異常處理機制的核心,也是</font>Delphi<font
face="宋體" lang="ZH-CN">異常處理的主要特色。下面我們對異常類的概念和體系進行詳細的介紹。</p>
<p> </font>Delphi<font face="宋體" lang="ZH-CN">提供的所有異常類都是類</font>Exception<font
face="宋體" lang="ZH-CN">的子類。用戶也可以從</font>Exception<font
face="宋體" 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<font
face="宋體" 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">提供了一個很龐大的異常類體系,這些異常類幾乎涉及到編程的各個方面。從大的方面我們可以把異常類分為運行時間庫異常、對象異常、部件異常三類。下面我們分別進行介紹?!?lt;/p>
</font><p>12.1.1 <font face="宋體" lang="ZH-CN">運行時間庫異常類</font>(RTL
Exception) </p>
<font face="宋體" lang="ZH-CN"><p> 運行時間庫異??梢苑譃槠哳?,它們都定義在</font>SysUtils<font
face="宋體" lang="ZH-CN">庫單元中?!?lt;/p>
</font><p>12.1.1.1 I/O<font face="宋體" lang="ZH-CN">異?!?lt;/p>
<p> </font>I/O<font face="宋體" lang="ZH-CN">異常類</font>EInOutError<font
face="宋體" lang="ZH-CN">是在程序運行中試圖對文件或外設進行操作失敗后產生的,它從</font>Exception<font
face="宋體" lang="ZH-CN">派生后增加了一個公有數據成員</font>ErrorCode<font
face="宋體" lang="ZH-CN">,用于保存所發生錯誤的代碼。這一成員可用于在發生</font>I/O<font
face="宋體" lang="ZH-CN">異常后針對不同情況采取不同的對策。</p>
<p> 當設置編譯指示{</font>$I- } <font face="宋體" lang="ZH-CN">時,不產生</font>I/O<font
face="宋體" lang="ZH-CN">異常類而是把錯誤代碼返回到預定義變量</font>IOResult<font
face="宋體" lang="ZH-CN">中?!?lt;/p>
</font><p>12.1.1.2 <font face="宋體" lang="ZH-CN">堆異?!?lt;/p>
<p> 堆異常是在動態內存分配中產生的,包括兩個類</font>EOutOfMemory<font
face="宋體" 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"> 整數異?!?lt;/p>
<p> 整數異常都是從一個</font>EIntError<font face="宋體" lang="ZH-CN">類派生的,但程序運行中引發的總是它的子類:</font>EDivByZero<font
face="宋體" lang="ZH-CN">,</font>ERangeError<font face="宋體" lang="ZH-CN">,</font>EIntOverFlow<font
face="宋體" 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<font
face="宋體" 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<font
face="宋體" 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<font
face="宋體" 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<font
face="宋體" lang="ZH-CN">的</font>Range_Checking Option<font face="宋體" lang="ZH-CN">選擇框。</p>
<p> </font>EIntOverFlow<font face="宋體" lang="ZH-CN">異常類在</font>Integer<font
face="宋體" lang="ZH-CN">、</font>Word<font face="宋體" lang="ZH-CN">、</font>Longint<font
face="宋體" 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="宋體"
lang="ZH-CN">異常。</font></p>
<p>EIntOverFlow<font face="宋體" lang="ZH-CN">異常類只有在編譯選擇框</font>Option|Project|Over_Flow_Check
Option<font face="宋體" lang="ZH-CN">選中時才產生。當關閉溢出檢查,則溢出后變量保留該類整數的最大范圍值。</font></p>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -