第十二章異常處理與程序調(diào)試一(參考版)
2024-09-09 15:32本頁面
【正文】 。 在異常保護(hù)的情況下，當(dāng)異常發(fā)生時(shí)，系統(tǒng)會(huì)自動(dòng)彈出一個(gè)消息框用于顯示異常的消息。 end。 finally FreeMem(CopyBuffer, ChunkSize)。 finally FileClose(Source)。 finally FileClose(Dest)。 if BytesCopied 0 then FileWrite(Dest, CopyBuffer^, BytesCopied)。 if Dest 0 then raise (FmtLoadStr(SFCreateError, [Destination]))。 if Source 0 then raise (FmtLoadStr(SFOpenError, [FileName]))。 GetMem(CopyBuffer, ChunkSize)。 + ExtractFileName(FileName)。 if HasAttr(Destination, faDirectory) then Destination := Destination + 39。 const ChunkSize: Longint = 8192。 Source, Dest: Integer。 var CopyBuffer: Pointer。 end。 finally FreeMem ( Apointer , 1024 )。 GetMem ( APointer , 1024 )。 AInt , ADiv : Integer。 finally 后面的語句是在任何情況下，不論程序是否發(fā)生異常，都會(huì)執(zhí)行的。 產(chǎn)生一個(gè)資源保護(hù)塊 Delphi 提供了一個(gè)保留字 finally，用于實(shí)現(xiàn)資源的保護(hù)： {分配資源 } try {資源使用情況 } finally {釋放資源 } end。 end。 AInt := 10 div ADiv 。 begin ADiv := 0。 var APointer : Pointer 。而 Delphi 的異常處理正提供了這種機(jī)制。 異常保護(hù) 確?；厥辗峙涞馁Y源是程序健壯性的一個(gè)關(guān)鍵。為便于理解我們也提供了一些簡單的說明性示例。 小結(jié) 在這一節(jié)中重點(diǎn)介紹了 Delphi 提供的異常類體系。 ， EReportError 數(shù)據(jù)庫異常 (EDatabaseError)和報(bào)表異常 (EReportError) 在進(jìn)行數(shù)據(jù)庫和報(bào)表操作出現(xiàn)錯(cuò)誤時(shí)引發(fā)。比如應(yīng)用程序找不到特定的服務(wù)器或會(huì)話，或者一個(gè)聯(lián)接意外中止。這一異常類在Grids 庫單元中定義。這一異常類在 Menus 庫單元中定義。 下面列出幾個(gè)典型的部件異常類。但并不是有關(guān)部件的任何錯(cuò)誤都會(huì)引發(fā)相應(yīng)的異常類。 EComponentError 引發(fā)該異常的原因可能有： ● 在 Register 過程之外試圖登錄一個(gè)部件 (常用于自定義部件開發(fā)中 ) ● 應(yīng)用程序在運(yùn)行中改變了一個(gè)部件的名稱并使該部件與另一個(gè)部件重名 ● 一個(gè)部件的名稱改變?yōu)橐粋€(gè) Object Pascal 非法的標(biāo)識(shí)符 ● 動(dòng)態(tài)生成一個(gè)部件與已存在的另一部件重名 EOutOfResource 當(dāng)應(yīng)用程序試圖創(chuàng)建一個(gè) Windows 句柄而 Windows 卻沒有多余的句柄分配時(shí)引發(fā)該異常。 EInvalidOperation EInvalidOperation 引發(fā)的原因可能有： ● 應(yīng)用程序試圖對一個(gè) Parent 屬性為 nil 的部件進(jìn)行一些需要 Windows句柄的操作 ● 試圖對一個(gè)窗口進(jìn)行拖放操作 ● 操作違反了部件屬性間內(nèi)置的相互關(guān)系等 例如， ScrollBar、 Gauge 等部件要求 Max 屬性大于等于 Min 屬性，因而下面的語句： := 。 部件異常類 通用部件異常類 通用部件異常類常用的有三個(gè)： EInvalidOperation、 EComponentError、EOutOfResource。 str := [3]。 則以下操作都會(huì)引起 EStringListError 異常： [3] := 39。Third item39。)。 (39。First item39。 EStringListError 異常一般在字符串鏈表越界時(shí)產(chǎn)生。 { 引發(fā)一個(gè)圖形異常 } ... 字符串鏈表異常 字符串鏈
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1