Delphi版 IsNumeric 函数

今天在改公司以前一个软件，代码中有一个地方需要判断一个字符串存储的是不是一个数字，自然让我想起VB的IsNumeric函数。 由于是Delphi,所以只有另外“打造”了。。

小函数贴上： 

function IsNumeric(strInPut:string):Boolean;var    Value:Double;    Code:Integer;begin    Val(strInPut,Value,Code);    result:=Code=0;end;

 

 

 

 

 

 

 

 

 

转载于:https://www.cnblogs.com/forads/archive/2009/05/23/2161172.html