delphi中如何判断是不是数字

如果是判断键盘输入是否数字，可以用上面的算法，很全面了。
如果判断文本框或变量中的字符是否为合法数字，可以用下面这个方法：
var
  i: LongInt;
  f: Double;
begin
  if TryStrToInt(Edit1.Text,i) or TryStrToFloat(Edit1.Text, f) then
    ShowMessage('是数字')
  else
    ShowMessage('不是数字');
end;