小函数贴上： 

function IsNumeric(strInPut:string):Boolean;
var
    Value:Double;
    Code:Integer;
begin
    Val(strInPut,Value,Code);
    result:=Code=0;
end;
--------------------- 
作者：紫松哥哥 
来源：CSDN 
原文：https://blog.csdn.net/zisongjia/article/details/53314221 
版权声明：本文为博主原创文章，转载请附上博文链接！