检查字符串是不是数字

IsNumeric 判断字符串是否为纯数字，

如果是数字返回true,如果包含有汉字或字符的话返回false. 

由于Delphi本身没有IsNumeric这个函数，不像其它语言，这个函数相当于Java的IsNaN函数。

【delpi代码】                           

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;