引言: 我是個剛學BCB的新手,最近遇到一個狀況 EX: //--------------------------------- StrToInt(Edit1->Text) //--------------------------------- 如果(Edit1->Text)是Null或者非數字系統, 那麼執行到這一行就會發生錯誤, 我想請問有沒有指令可以在錯誤發訊息發生前... 先把它攔下來,再把它改回正常值,像Edit1->Text = "0" 像我之前想到治標的方法: void __fastcall TForm1::Edit11KeyPress(TObject *Sender, char &Key) { if (!((Key > 47)&&(Key < 58)||(Key == 8)||(Key == 13))) Key = 0; } 但只要小數點".."按兩次它還是會錯 所以想請問各位老手,BCB有沒有攔截錯誤的指令! 拜託啦!3q3q

bool IsStrInt(AnsiString sz)
{
   try
   {
      StrToInt(sz);
   }
   catch(EConvertError &e)
   {
      return false;
   }
   return true;
}

//------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
  TEdit *e = dynamic_cast  (Sender);      // 建立按鍵比對樣本
  String p = "0123456789\x08";
  String s = e->Text;      // 若 . 不存在, 增加 . 到比對樣本
  if (!s.Pos (".")) p  = ".";
  if (!s.Pos (" ") || s.Pos ("-")) p  = " -";
  // 若  - 不存在, 增加  - 到比對樣本      s = " -";      // 判斷  /- 號是否在第一個字元出現  or
  // 搜尋比對樣本, 找不到就封殺...
  if (!p.Pos (Key) || (s.Pos (Key) && e->SelStart > 0))
    Key = 0;
}
//------------------------------------------------