IsNumeric 判断字符串是否为数字，如果是数字返回true,如果包含有汉字或字符的话返回false.  由于Delphi本身没有IsNumeric这个函数，不像其它语言，这个函数相当于Java的IsNaN函数。

delphi代码
  1. function  IsNumeric(AStr:   string):   Boolean;   
  2. var  
  3.       Value:   Double;   
  4.       Code:   Integer;   
  5. begin  
  6.       Val(AStr,   Value,   Code);   
  7.       result   :=   Code   =   0;   
  8. end;  
Last modification：August 16, 2009
© Allow specification reprint
如果觉得我的文章对你有用，请随意赞赏