送分（初学者）关于输入数字型数据的合法性验证

[ro]

输入数字型数据的合法性验证，我想用OnValidate事件处理，但不知如何用。

[蝈蝈俊]

try

[ro]

请写详细一点儿，最好有一个例子，我不知怎样验证它为数字型数据。
谢！

[HaoGe]

如果不用TDBEdit之类的数据敏感控件就只有自己写函数了。如果用了就不用再写代码了，一般验证由数据库自己去完成了。

[jilimi]

Function IsNumber(const s:string):Boolean;
begin
try
strtoint(s);
result:=true;
except
result:=false;
end;
end;