dbedit验证问题

Question

请问,delphi的dbedit是否有验证功能，如果没有，如何实现，谢谢
(验证需求：dbedit1绑定的数据字段为整型值范围为-32765～32764,如用户输入字母或超出此范围，在有些语言中可editmask等方式通过验证解决)

Answer 1

if abs(strtoint(dbedit1.Text))>32764 then// ...

Answer 2

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
  if abs(strtoint(dbedit1.Text))>32764 then// ...
end;

Answer 3

呵呵
jinjazz抢分能力实在是让在下佩服