各位： delphi如何取得異常代碼，因爲我只能取得E.Message,但如何捕捉錯誤代碼？ 還有，凴錯誤代碼如何判斷是連接的數據庫已經斷開還是SQL String有錯誤或是Table錯誤？ 急！急！急！ 非常感謝！！！

以 ADO 為例, 你可以用類似底下的指令, 捕捉錯誤代碼

   Try
      .....      
   except
      for i:=0 to ADOConnection1.Errors.Count-1 do begin
         j:=ADOConnection1.Errors.Item[i].NativeError;  
         // 此處依 j 值處理後續動作
      end;
   end;

j 值即為錯誤代碼, 但其值為何 ? 要視你使用哪一套資料庫而定 以 SQL server 2000 為例, 2601 代表鍵值重覆, 515 代表某個 NOT NULL 的欄位其值為 NULL ... 但請注意, 可能發生錯誤的, 除了資料庫之外, 也可能是 VCL 元件 兩類錯誤處理的方式不同, 且二者都必須處理 我習慣以下列的程式處理

   Try
      ......
   except
      on E:Exception do begin
         // 此處可能要 rollback         
         ProcessErrors(DataModule1.ADOConnection1.Errors,E);
      end;
   end;        procedure ProcessErrors(ADOErr:Errors; E:Exception);
var
   ADOErrors:Errors;   i:integer;   Temp:AnsiString;
begin
   ADOErrors:=ADOErr;
   if ADOErrors.Count > 0 then begin
      Temp:='';
      for i:=0 to ADOErrors.Count-1 do begin
         Temp:=Temp GetADOErrMsg(ADOErrors.Item[i]);
      end;
      MessageDlg(Temp,mtError,[mbOk],0);
   end else begin
      MessageDlg(E.Message,mtError,[mbOk],0);
   end;
end;    function GetADOErrMsg(Err:Error):AnsiString;
var
   Temp:AnsiString;
begin
   Temp:='ADO錯誤代碼:' IntToStr(Err.NativeError);
   Temp:=Temp #13 'ADO錯誤原因:' Err.Description #13#13;
   Result:=Temp;
end;

謹供參考