根據 http://delphi.ktop.com.tw/topic.php?topic_id=36825 我以同樣的方法作Edit輸入判定。但，我在異常處理前加入一訊息顯示，卻會造成當機問題，我該如何顯示輸入錯誤，且不造成程式當機問題 程式如： try { f_var = Edit1->Text.ToFolat; } catch { Application->MessageBox("Error input format. ","exception", 65);//若無加入此行，程式可運作；但為了讓操作者得知輸入錯誤，需顯示訊息告知。如此卻會造成當機問題。 return; }

Sorry... 程式碼應修改為 try { f_var = Edit1->Text.ToDouble(); } catch(EConvertError &e) { Application("Error input format","Exception",65); <<-- ? 會造成當機 return; }

把你兩個瑪綜合一下不就行了..  

 
try
{
  double d_var = Edit1->Text.ToDouble();
}
catch(EConvertError &e)
{
  Application->MessageBox("Error input format. ","exception", 65);
  return;
}

如果不行的話.. 就catch全部的錯誤看看囉..

 
try
{
  double d_var = Edit1->Text.ToDouble();
}
catch(...)
{
  Application->MessageBox("Error input format. ","exception", 65);
  return;
}

我發現問題應該是出在 Edit1->Text.ToDouble(); 這個述句。理應它若輸入一個非數字字串應該要throw出一個exception，但，目前情況卻是程式因此卡住在ToDouble()，並未丟出exception 讓catch區段作對應處理。 折衷辦法，以 http://delphi.ktop.com.tw/topic.php?topic_id=36825 中DyingYoung 所介紹，將字串先行判斷，之後再丟給ToDouble()轉換。 雖然是個簡單的問題，卻是讓程式更強健的必要處理！ 不知，是否還有更好的處理方法... >"< 有其他好秘笈、偏方大大，提供看法？