Delphi 異常處理機制深度探究：try-except 與 try-finally 正確應用模式

var
  P: Pointer;
  I, J, K: Integer;
begin
  I := 0; J := 10;
  GetMem(P, 4096); // 分配資源放在 try 之前
  try
    K := J div I; // 觸發異常
  except
    ShowMessage('異常已捕獲');
  finally
    FreeMem(P, 4096); // 必定釋放記憶體
    ShowMessage('記憶體已釋放');
  end;
end;

黃金法則

1. 資源配置（Create/GetMem/OpenFile）放在 try 之前。
2. try 區塊僅放使用資源、可能拋出異常的業務邏輯。
3. finally 區塊專職釋放資源（Free/FreeMem/CloseFile）。

常見錯誤模式

// 錯誤：配置在 try 內，若配置本身失敗（罕見但可能），finally 會嘗試釋放未初始化變數
try
  GetMem(P, 4096);
  // ...
finally
  FreeMem(P, 4096);
end;

巢狀結構最佳實踐

Query := TQuery.Create(nil);
try
  Stream := TMemoryStream.Create;
  try
    // 使用 Query、Stream
  finally
    Stream.Free;
  end;
finally
  Query.Free;
end;

自訂異常類別

type
  EMyAppError = class(Exception)
  public
    ErrorCode: Integer;
    constructor Create(const Msg: string; ACode: Integer);
  end;

raise EMyAppError.Create('資料驗證失敗', ERR_VALIDATE);

總結

善用 try-except 處理業務異常、try-finally 守護資源釋放，是編寫健壯 Delphi 程式的基石。異常處理不複雜，核心在於「中斷異常流→捕獲→處理/清理→恢復/傳播」，掌握此模式即可從容應對各類運行期意外。