Object Pascal定義了許多例外類別，在Delphi中，類別幾乎都以T開頭，但例外類別卻大部分是E開頭，例如：EDateTimeError, EConvertError,EDivByZero,ERangeError等，所有例外皆繼承自Exception 類別。
要在Delphi中在設計階段能使用 Exception的功能，須先設定下列步驟：
主選單 ==> Tools ==> Debugging Options...
==> Language Exceptions標籤頁中的 Stop on Delphi Exceptions 的勾勾取消即可。
try ... except ... 的範例：
try
保護的指令
except
有例外發生時，要如何處理
end;
為何要 try ... except ... ，其目的在於"保護的指令"該區段若有任何的錯誤，不希望造成系統的停止運作，而是將運作的流程直接跳到 except區段，由該區段來執行錯誤排除的工作。
範例一
procedure TForm1.Button1Click(Sender: TObject);
var
d: Tdatetime;
i,j: integer;
begin
try
d:= strtodatetime(edit1.Text);
i:= strtoint(edit2.text);
j:= strtoint(edit3.text);
i:= i div j;
edit2.Text:= inttostr(i);
except
on EDivByZero do showmessage('除以零的錯誤');
//可以自訂錯誤訊息
on Econverterror do showmessage('型態轉換錯誤');
on e:Exception do //超過一行的指令需用begin...end; //任何變數名稱都可以，不一定要e，在此為臨時的變數名稱。 Exception為所有例外處理的老祖宗
showmessage('系統訊息： ' + e.Message);
end;
end;
自製的 raise Exception型態，程式設計者可以自訂錯誤訊息，並將例外的情形集中處理
interface
type
EMyException=class(Exception); //自訂的錯誤型態
begin
try
i:= strtoint(edit1.Text);
j:= strtoint(edit2.Text);
if i < 10 then
raise EMyException.Create('edit1 值小於 10')
else if i > 100 then
raise EMyException.Create('edit1 值大於 100');
edit2.Text:= inttostr(i div j);
except
on e:EMyException do showmessage(e.Message);
//自訂的exception會自動移除，不須自己寫指令清除 e.destroy
on ee:Exception do showmessage('系統錯誤訊息:' + ee.Message);
end;
end;
Try ... Finally ... end;
目的為了保護系統的資源以便在完成工作後釋放原先所取得的資源，在Delphi中以下的資源通常需要下指令去取得，也需要下指令去釋放 Files，Memory，Windows resources (VCL only)，Objects等。
格式如下
{ 取得資源的指令}
try
{ 利用該資源的相關指令}
finally
{ 最後須釋放相關資源}
end;
範例：
以下範例取得之記憶體的資源將無法正常的釋放，造成你在寫成程式，記憶體愈來愈少。
procedure TForm1.Button1Click(Sender: TComponent);
var
APointer: Pointer;
AnInteger, ADividend: Integer;
begin
ADividend := 0;
GetMem(APointer, 1024); // 要求 1K 的記憶體容量
AnInteger := 10 div ADividend; //若在此發生錯誤，則下列的釋放資源的工作將無法做到
FreeMem(APointer, 1024);
end;
}
//修改成下列方式，其意義就是不管 div的指令有無錯誤，皆須執行 finally內之指令，即釋放記憶體freemem。
procedure TForm1.Button1Click(Sender: TComponent);
var
APointer: Pointer;
AnInteger, ADividend: Integer;
begin
ADividend := 0;
GetMem(APointer, 1024); { allocate 1K of memory }
try
AnInteger := 10 div ADividend; { this generates an error }
finally
FreeMem(APointer, 1024); { execution resumes here, despite the error }
end;
end;
except 與 finally 合併使用
語法如下：
try
try
statement1;
statement2;
...
except
on E:except do ...//進行例外處理
end;
finally
statement_n; //釋放系統資源
end;
範例：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
try
try
i:=strtoint(edit1.text);
j:=strtoint(edit2.text);
i:= i div j;
edit1.text:= inttostr(i);
except
on E:Exception do
showmessage(E.message);
end;
finally
showmessage('finally 這一段一定會做(釋放系統資源)');
end;
end;
Global exception handeling(一般不建議，因為太多的exception，會更亂)
如果希望將所有的 Exception 統一在副程式中處理，可以利用 Application.onException的屬性，將應用程式中所有的例外狀況，交由同一段指令來處理。
使用步驟如下：
//1. 宣告處理Exception的程序名稱，例如MyExceptionHandler
{ Public declarations }
procedure MyExceptionHandler(Sender : TObject; E : Exception );
//2. 定義 Exception Handler於 implementation區，例如：
procedure TForm1.MyExceptionHandler(Sender : TObject; E : Exception );
var
wRetVal : Word;
begin
wRetVal := MessageDlg('錯誤訊息: ' + E.Message, mtError, mbAbortRetryIgnore,0);
case wRetVal of
mrAbort:
begin
{ handle "Abort" here... }
end;
mrRetry:
begin
{ handle "Retry" here... }
end;
mrIgnore:
begin
{ handle "Ignore" here... }
end;
else
begin
{ handle "other" action here...}
end;
end;
end;
//3. 指定應用程式的Exception將集中至 MyExceptionHandler管理
procedure TForm1.FormCreate(Sender: TObject);
begin
{ begin new code }
Application.OnException:=MyExceptionHandler;
{ end new code }
end;
巢狀式(分層次)的例外處理
try //第一層的保護區塊起點
statement...;
try //第二層的保護區塊起點
statement...;
except //第二層的例外處理程式
statement...;
end;
...
except //第一層的例外處理
on e:Exception do ...
end;
RSS Feed (xml)
