Delphi 運行時錯誤代碼完整手冊：從 I/O 錯誤到系統異常的詳細對照表

Delphi 運行時錯誤格式

Delphi 程式運行時發生未處理異常時，會顯示如下格式的錯誤訊息：

Run-time error nnn at xxxxxxxx

• nnn：運行時錯誤編號
• xxxxxxxx：錯誤發生的代碼地址

錯誤分類總覽

I/O 錯誤代碼表 (100-149)

致命錯誤代碼表 (200-255) - 核心重點

深度解析：Error 216 Access Violation (最常見致命錯誤)

錯誤訊息形式

Access violation at address 00401234 in module 'Project1.exe'. 
Read of address 00000000

Access violation at address 00401234 in module 'Project1.exe'. 
Write of address 00000004

四大核心原因

1. 空指標解引用：P^ 或 Obj.Method 其中 P/Obj = nil

   var SL: TStringList;
   begin
     SL.Add('test');  // AV! SL 為 nil
   end;

2. 已釋放物件的殘留引用：

   var SL: TStringList;
   begin
     SL := TStringList.Create;
     SL.Free;
     SL.Add('test');  // AV! 記憶體已釋放
   end;

3. 陣列/字串越界 (開啟 {$R+} 時拋 201，關閉時可能拋 216)：

   var Arr: array[1..10] of Integer;
   begin
     Arr[11] := 0;  // 可能 AV
   end;

4. DLL/BPL 邊界傳遞物件：跨模組共享類實例導致虛函數表不匹配

除錯定位技巧

1. 地址對應原始碼：使用 Find Error (Ctrl+F7) 或查看 .map 檔案
2. 啟用 Debug DCU：Project Options → Linking → "Debug DCUs"
3. 使用 FastMM4 完整模式：ReportMemoryLeaksOnShutdown := True; FullDebugMode
4. 記錄呼叫堆疊：JclDebug + JclHookExcept 或 MadExcept/EurekaLog

Windows 系統錯誤代碼精選 (高頻遇到)

錯誤處理最佳實踐

1. 結構化異常處理 (try..except)

procedure SafeProcessFile(const FileName: string);
var
  F: TextFile;
  Line: string;
begin
  AssignFile(F, FileName);
  try
    Reset(F);
    try
      while not Eof(F) do
      begin
        Readln(F, Line);
        // 處理每行
      end;
    finally
      CloseFile(F);  // 確保關閉
    end;
  except
    on E: EInOutError do
      // I/O 錯誤 (代碼在 E.ErrorCode)
      LogError(Format('I/O Error %d: %s', [E.ErrorCode, E.Message]));
    on E: Exception do
      // 其他異常
      LogError(Format('Error: %s', [E.Message]));
  end;
end;

2. 全域異常捕獲 (應用程式級)

// 在 .dpr 專案原始碼中
Application.OnException := GlobalExceptionHandler;

procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
begin
  // 記錄完整堆疊
  LogException(E);
  
  // 友善提示用戶
  if E is EAccessViolation then
    ShowMessage('程式發生內部錯誤 (存取違規)，請重啟嘗試。')
  else if E is EInOutError then
    ShowMessage(Format('檔案操作失敗：%s', [E.Message]))
  else
    ShowMessage(Format('發生錯誤：%s', [E.Message]));
    
  // 決定是否終止
  // Application.Terminate;
end;

3. 取得詳細錯誤資訊的工具函數

function GetLastErrorMsg: string;
var
  ErrCode: DWORD;
  Buf: array[0..255] of Char;
begin
  ErrCode := GetLastError;
  if ErrCode = 0 then Exit('');
  if FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, ErrCode, 0, Buf, 255, nil) > 0 then
    Result := Format('OS Error %d: %s', [ErrCode, StrPas(Buf)])
  else
    Result := Format('OS Error %d (unknown)', [ErrCode]);
end;

// 使用範例
if not DeleteFile('test.txt') then
  ShowMessage('刪除失敗：' + GetLastErrorMsg);

快速查詢索引

總結

熟悉 Delphi 運行時錯誤代碼是快速定位 Bug 的關鍵技能。重點掌握：201 範圍檢查 (開啟 {$R+})、204 無效指標 (FastMM4 偵測)、216 存取違規 (最常見、最難查)、I/O 錯誤 100-106 (檔案操作基本功)。配合 GetLastError、SysErrorMessage、JclDebug/MadExcept 等工具，可將除錯效率提升數倍。

1. 上一篇文章： DelphiX 圖片混合模式實戰：DrawAdd 與 DrawSub 加減色效果對比
2. 下一篇文章： Delphi Database Desktop 主視窗完整介紹

Delphi

DIOCP 3 重構歸來：穩定版發布、BSD 授權與模組化架構全解析

重構緣起 作者耕耘 DIOCP 超過一年，目標是打造 30×

Bass.dll 播放 MP3 系列(4)：播放進度條 - 位置/長度/時間轉換

核心 API 組合 函數用途單位 BASS_Channel

Delphi + IntraWeb 微信開發實戰 (1-4) 完整示例代碼開源：從消息加解密到業務響應

Delphi + IntraWeb 微信公眾號開發完整示例

Delphi 7 IDE 進階指南（二）：環境選項、待辦清單與編譯訊息增強

環境選項對話框深度解析 Delphi 7 的「環境選項」對話