在資料庫存取錯誤時，程式應該要exception才對，我也試了try....exception，但是無效，程式還是會跳出來，並且出現錯誤訊息。 那原來的理由應該是，如果因為登入資料庫的密碼錯誤、權限錯誤，或其他的錯誤，應該只要是示使用者錯誤訊息就好，而不是整個程式「跳掉」，那程式應該怎麼弄呢？ 也問了一些人，不過到目前為止，所有的方法還是無效。

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

如果方便的話~請你把程式碼POST上來吧~ -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

引言: 如果方便的話~請你把程式碼POST上來吧~ -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

try DataModule2.SQLConnection1.LoginPrompt:= False; DataModule2.SQLConnection1.Params.Values['User_Name']:= Edit2.Text; DataModule2.SQLConnection1.Params.Values['Password']:= Edit1.Text; DataModule2.SQLConnection1.Params.Values['HostName']:= Edit4.Text; DataModule2.SQLConnection1.Params.Values['Database']:= Edit3.Text; DataModule2.SQLConnection1.Connected:= True; except ShowMessage('連接發生錯誤，請檢查是否輸入不正確值!!'); end; 請惠予指導，我願意認真學習如何解決這一個問題。謝謝!

不知道您的無效是什麼意思 如果是說您有用 try .. except 但還是會出現系統的錯誤訊息 這是正常的 只要您不在 IDE 環境下 run 程式就不會這樣。 或者將 Tools -> Debugger Options  的 Language Exceptions 頁中的 Stop on Delphi Exceptions  的核取方塊取消也可以。    -- Everything I say is a lie.

謝謝您，原來是這個樣子。 不過為什麼每次我看書，它都寫 try.... except 是有 begin.... end;的，但是上面卻有人建議我不要用 begin....end;程式就會正常。 我困惑了，到底是要還是不要？

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

如果沒有其它的錯誤處理程序, 就用 try .. except 如果不想在 IDE 內 run 程式, 秀出系統的預設錯誤訊息 就將 Tools -> Debugger Options  的 Language Exceptions 頁中的  Stop on Delphi Exceptions 的核取方塊取消    -- Everything I say is a lie.

閣下誤解我的意思了， 我的意思是 try begin //這二行 end; //這二行 except 到底需不需要加 begin, end;？？ 因為書上都寫要，但有人說不用？另我困惑。

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

可要可不要, 參考底下 Help 內的說明: You can write a compound statement that contains only  a single constituent statement; like parentheses in a  complex term, begin and end sometimes serve to  disambiguate and to improve readability. You can  also use an empty compound statement to create a  block that does nothing:    -- Everything I say is a lie.

哦，那再請教，到底 [XXXXXXX] 該填什麼？ 因為這是要看發生的例外而定，我目前的做法是看著它發生錯誤訊息，從它的錯誤訊息當中找。 Exception EDatabaseError in module Project1 at 080C030B. dbExpress Error: Invalid Username/Password. 所以我就填 on EDatabaseError do showmessage('.....');  可是還是「攔截」不到這個例外。究竟發生例外時，要如何判斷這個[XXXXXXX]該填什麼。    比如說，以下的程式碼： try ..... except on [XXXXXXX] do [AAAAAAAA] on [XXXXXXX] do [AAAAAAAA] end; finally    end;    真是再麻煩您一次的解說，謝謝。

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

最簡單的

try
  ...
except
  on E: Exception do // Excpetion 為所有例外的最上層的類別
    ...
end;

-- Everything I say is a lie.