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