【正文】 {$R} var a:array [1..3] of byte。 i:integer。 begin for i:=1 to 4 do begin a[i]:=i。 showmessage(inttostr(a[i]))。 end。 end。 控制程序的執(zhí)行 設(shè)置斷點(diǎn)（ Toggle Breakpoint/F5） 執(zhí)行到光標(biāo)處 (Run to cursor/F4） 單步執(zhí)行 (Trace Into/F7， Step Over/F8) 舉例 舉例（控制程序的執(zhí)行） 編程實(shí)現(xiàn)符號(hào)函數(shù)的功能 ： var x,y:real。 begin x:=2。 y:=0。 if x=0 then if x0 then y:=1 else y:=1。 showmessage(floattostr(y))。 end。 異常處理 Delphi對(duì)異常的自動(dòng)處理 編程人員對(duì)異常的處理 Try… except語(yǔ)句 Raise語(yǔ)句 Try…finally 語(yǔ)句 自定義異常類及其使用 Delphi對(duì)異常的自動(dòng)處理 Delphi為應(yīng)用程序提供了一套缺省的自動(dòng)異常處理機(jī)制，即當(dāng)前模塊發(fā)生錯(cuò)誤后退出當(dāng)前模塊并給出錯(cuò)誤信息，而并不立即引起應(yīng)用程序的中止。 若程序在 Delphi的集成開發(fā)環(huán)境中運(yùn)行，在給出相應(yīng)錯(cuò)誤信息的同時(shí)，還盡可能定位出錯(cuò)的位置。 例如： var i:integer。 r:real。 begin i:=0。 r:=8 / i。 showmessage(floattostr(r))。 end。 Try… except語(yǔ)句（格式 1） 格式 1： Try 語(yǔ)句 Except 語(yǔ)句 End。 功能： 若執(zhí)行 Try與 Except之間的語(yǔ)句發(fā)生異常，則執(zhí)行Except與 End之間的語(yǔ)句對(duì)該異常作出處理，并清除異常，否則（沒(méi)有異常）跳過(guò) Except與 End之間的語(yǔ)句。 舉例 舉例（格式 1） 舉例： var i:integer。 r:real。 begin i:=0。 try r:=8/i。 showmessage(floattostr(r))。 except showmessage(39。除數(shù)為零 39。)。 end。 end。 Try… except語(yǔ)句（格式 2） 格式 2： Try 語(yǔ)句 Except on [標(biāo)識(shí)符 :] 異常類 do 語(yǔ)句 on [標(biāo)識(shí)符 :] 異常類 do 語(yǔ)句 …………… End。 功能： 當(dāng)執(zhí)行 Try與 Except之間的語(yǔ)句發(fā)生異常時(shí)，依次查找 on后的異常類，直到發(fā)現(xiàn)某個(gè)匹配的異常類即執(zhí)行其do后語(yǔ)句，并清除異常，然后跳過(guò) Try與 Except結(jié)構(gòu)，執(zhí)行 end后的語(yǔ)句。 若在 on后沒(méi)有找到匹配的異常類，則異常仍然存在。 舉例 舉例（格式 2） var i,j:integer。 r:real。 begin j:=20。 try i:=strtoint()。 j:=10 div i。 r:=10/(i1)。 showmessage(39。正常， j=39。+inttostr(j)+39。,r=39。+floattostr(r))。 except on E:EConvertError do showmessage(39。異常，非數(shù)值 39。+13+)。 on EDivByZero do showmessage(39。異常，整數(shù)被 0除 39。)。 on EZeroDivide do showmessage(39。異常，實(shí)數(shù)被 0除 39。)。 end。 end。 Try… except語(yǔ)句（格式 3） 格式 3： Try 語(yǔ)句 Except on [標(biāo)識(shí)符 :] 異常類 do 語(yǔ)句 on [標(biāo)識(shí)符 :] 異常類 do 語(yǔ)句 …………… else 語(yǔ)句 End。 功能： 當(dāng)執(zhí)行 Try與 Except之間的語(yǔ)句發(fā)生異常時(shí)，依次查找on后的異常類，直到發(fā)現(xiàn)某個(gè)匹配的異常類即執(zhí)行其 do后語(yǔ)句，若在 on后沒(méi)有找到匹配的異常類，則執(zhí)行 else后的語(yǔ)句，并清除異常。 舉例 舉例（格式 3） var i,j:integer。 r:real。 begin j:=20。 try i:=strtoint()。 j:=10 div i。 r:=10/(i1)。 showmessage(39。正常， j=39。+inttostr(j)+39。,r=39。+floattostr(r))。 //raise exception except on E:EConvertError do showmessage(39。異常，非數(shù)值 39。+13+)。 else showmessage(39。異常，除數(shù)為 039。)。 end。 end。 Raise語(yǔ)句 在 Except后語(yǔ)句處理了異常，則清除異常，但可在其后使用 Raise重新產(chǎn)生該異常，再提供給外層 Try來(lái)處理。 var i:integer。 r:real。 begin i:=0。 try r:=8/i。 showmessage(floattostr(r))。 except showmessage(39。除數(shù)為零 39。)。 raise。 end。 Try…finally 語(yǔ)句 格式： Try 語(yǔ)句 Finally 語(yǔ)句 End。 功能： 不管執(zhí)行 Try與 Finally之間的語(yǔ)句是否發(fā)生異常，均可保證執(zhí)行 Finally后的語(yǔ)句，它不清除異常。 通常用于在使用某資源時(shí)失敗后以保證能釋放該資源。 舉例 舉例（ Try…finally 語(yǔ)句） var f:textfile 。//定義文本類型的文件變量 begin assignfile(f,39。c:\39。)。 //文件變量 f指向 c:\ Reset(F)。//文本文件以只讀方式打開 try write(f,39。One string39。)。//寫入一個(gè)字符串，由于不能寫，發(fā)生異常 finally CloseFile(F)。 showmessage(39。文件已關(guān)閉 39。)。 end。 end。 Delphi中的異常類 Delphi提供的所有異常類都是類 Exception的子類。 常用異常類 EDivByZerO：整數(shù)被零除 。 EIntOverflow：整數(shù)超出其能表示的范圍 。 EZeroDivide：浮點(diǎn)數(shù)被零除 Eoverflow：實(shí)數(shù)上溢出 。 Eunderflow：實(shí)數(shù)下溢出 。 ERangeError：訪問(wèn)數(shù)組時(shí)范圍超出 。 常用異常類 EConvertError：在字符串與其他數(shù)據(jù)類型進(jìn)行轉(zhuǎn)化 ， 或類調(diào)用 Assign方法時(shí)產(chǎn)生錯(cuò)誤 。 EInvalidCase：類之間的強(qiáng)行類型轉(zhuǎn)換 （ 使用 as關(guān)鍵字 )時(shí)產(chǎn)生錯(cuò)誤 。 EAbstractError：試圖調(diào)用一個(gè)空方法 (Abstract 方法 )。 EInvalidPointer：錯(cuò)誤的指針調(diào)用 。 EAccessViolation：試圖非法訪問(wèn)內(nèi)存 。 EOutofMemory：無(wú)可用內(nèi)存分配 。 EStackOverflow：程序堆棧溢出 。 EDatabaseError：數(shù)據(jù)庫(kù)操作出錯(cuò)。 EDBEngineError： BDE（數(shù)據(jù)庫(kù)引擎）出錯(cuò)。 EInOutError：輸入輸出 Eabort：?jiǎn)‘惓?，不產(chǎn)生任何錯(cuò)誤信息，通常由 Abort過(guò)程產(chǎn)生 。 Exception類 主要屬性 Message：異常發(fā)生時(shí)，顯示在異常對(duì)話框中的提示信息。 HelpContext：指定幫助內(nèi)容的 ID號(hào)。 主要方法 Create (const Msg: string)：創(chuàng)建帶簡(jiǎn)單信息的異常類。 CreateFmt (const Msg: string。 const Args: array of const)： 創(chuàng)建帶格式信息的異常類。 自定義異常類及其使用 定義異常類 type MyError=class(Exception) end。 在函數(shù)中創(chuàng)建自定義異常類 function StrToIntRange(const S: string。 Min, Max: Longint): Longint。 begin Result := StrToInt(S)。 if (Result Min) or (Result Max) then raise (39。%d is not within the valid range of %d..%d39。, [Result, Min, Max])。 end。 使用自定義異常類 procedure (Sender: TObject)。 begin try StrToIntRange(39。123439。,1,100)。 except on e:MyError do showmessage(39。發(fā)生自定義異常39。13+)。 end。 end。 本節(jié)要點(diǎn) () 熟悉程序設(shè)計(jì)中的錯(cuò)誤類型 。 掌握常用編譯選項(xiàng)的含義及其設(shè)置 。 掌握程序調(diào)試方法 （ 設(shè)置斷點(diǎn) 、 執(zhí)行到光標(biāo)處 、 單步執(zhí)行及使用監(jiān)視列表窗口等 ） 。 掌握異常處理技術(shù) （ Try… except語(yǔ)句 ， Try… finally語(yǔ)句及常用異常類 等的使用 ） 練習(xí) () 理論 教程 P2830選擇題 610，簡(jiǎn)答題 4， 6， 11 上機(jī) 本章小結(jié) 本章通過(guò)編寫最簡(jiǎn)單程序來(lái)介紹了 Delphi的集成開發(fā)環(huán)境；簡(jiǎn)要全面地講述了 Delphi 編程語(yǔ)言 ——Object Pascal；最后介紹 Delphi 中的程序調(diào)試及異常處理機(jī)制。這些都是 Delphi編程基礎(chǔ)，特別是 Object Pascal語(yǔ)言，一定要多編寫程序，以達(dá)到快速熟悉其語(yǔ)法的目的；并且在后續(xù)編程中要自覺(jué)運(yùn)用 Delphi程序調(diào)試技術(shù)及異常處理方法。