?? 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 + -