delphi try except語句 和 try finally語句用法以及區別

標籤：不同的   cep   錯誤類型   處理   模組   判斷   sage   .text   異常   

try//嘗試執行
{SomeCode} 
except//出錯的時候執行, Except有特定的錯誤類型 
{SomeCode} 
end; 

try//嘗試執行
{SomeCode} 
finally//無論如何都強制執行
{SomeCode} 
end; 

例:
try
Age:=StrToInt(Edit1.Text);
ShowMessage(Format(‘生於%d年‘,[YearOf(Now)-Age]));
except
on EConvertError do
showmessage(‘輸入編輯框的不是一個有效數字!‘);
on ERangeError do
showmessage(‘輸入編輯框的年齡值太大!‘);
end;



保留字on…do用於判斷異常類型。必須注意的是：except後面的語句必須包含在某一個on…do模組中，而不能單獨存在。這又是同finally不同的一個地方。


異常處理
try
//成功失敗都跳進finally語句裡執行
finally

end;
try
//失敗才跳進 except裡執行
except on e:Exception do
ShowMessage(e.Message);
end; 

delphi try except語句 和 try finally語句用法以及區別