编辑框输入数据错误处理

Question

编辑框包括Edit,DBEdit,DBGrid等,
输入错误,如:在整数中输入+_.等.
报错,如:'+_.'not a valid floating point value of field 'xxxx'
请高手指点,
如何截取错误信息,
如何将报错改为自定义的告警提示如'输入不合法'等

Answer 1

Edit,DBEdit可在OnExit事件中判断
DBGrid可在OnColExit事件中判断对于数据绑定的控件，可以其Field的OnChange事件中判断

Answer 2

在编辑控件的onkeypress中判断
如果按键是非法的则调用abort;

Answer 3

try
  strtoint(edit1.text)
except
  showmessage('输入不合法');
end;

Answer 4

在edit和dbedit的keypress中写代码：
  if not key in['正确的字符'] then
    ......//你要做的处理

Answer 5

应该在PostError事件中截取错误信息，
此事件中，若把 Action := daAbort ;//daFail, daAbort, daRetry
就可解决“将报错改为自定义的告警提示如'输入不合法'等”