mysql4.1.13 try SQLDataSet1.ExecSQL; //在編譯后執行到這裡一樣會把問題的英文提示彈出 except On E: EDBEngineError do begin if E.Errors[0].ErrorCode <> ... then begin end; end; end; 難道說又是libmysql.dll的問題？

Hi lkjlkj,    是因為這個原因嗎？    http://delphi.ktop.com.tw/topic.php?topic_id=30276 < >< > ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

不是此原因，已經是獨立執行。 而且debug中関掉也是一樣

爲了測試try我寫了個最簡單的程式，結果更奇怪 var i,j:integer; begin i:=0; try j:=1 div i; //這句就該觸發除0錯，應該執行except中的内容 showmessage('1'); except showmessage('2'); end; end 結果執行的是showmessage('1')，難道是我理解有錯？

Hi lkjlkj,    事實上，那是程式自動最佳化的結果

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  i:=0;
  try
    j:=1 div i; // 這一行並不會被執行
    showmessage('1');
  except
    showmessage('2');
  end;
end;

你可以參考這一篇討論，進行專案的最佳化調整 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=80072 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

EDBEngineError is a BDE exception. So are you using BDE? Or simply try to catch all exceptions.    http://pywong.hk.st

william 大大果然高ㄚ！    將 On E: EDBEngineError do 更改為 On E:Exception do 即可！ ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

高，我還以爲我的delphi出問題了呢，原來我出問題了，呵呵 謝謝三位大蝦，都搞懂了