IsNumeric 判断字符串是否为数字

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;  
Posted in 软件开发 by 傻猫 at October 22, 2007.
Tags: 函数, 字符串, 数字, 判断

添加新评论