例外處理

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;