delphi中如何判断是不是数字

如果是判断键盘输入是否数字，可以用上面的算法，很全面了。

如果判断文本框或变量中的字符是否为合法数字，可以用下面这个方法：

var

i: LongInt;

f: Double;

begin

if TryStrToInt(Edit1.Text,i) or TryStrToFloat(Edit1.Text, f) then

ShowMessage('是数字')

else

ShowMessage('不是数字');

end;