isnumeric java_IsNumeric 判断字符串是否为数字（使用Val函数实现），这个函数相当于Java的IsNaN函数...

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

delphi代码

function IsNumeric(AStr: string): Boolean;

var

Value: Double;

Code: Integer;

begin

Val(AStr, Value, Code);

result := Code = 0;

end;

____________________________________________________________________________________________

方法二：

function StrCheck(RemitStr: string): string;

var

VV:string;

begin

if StrToFloatDef(RemitStr,0)<>0 then

Result:=''

else

begin

VV:= RemitStr;

VV:=StringReplace(VV, '0', '', [rfReplaceAll, rfIgnoreCase]);

VV:=StringReplace(VV, '.', '', [rfReplaceAll, rfIgnoreCase]);

if Length(trim(VV))>0 then

Result:=RemitStr;

end;

end;

---------------------

作者：清风古韵

来源：CSDN

原文：https://blog.csdn.net/ttpage/article/details/9161719

版权声明：本文为博主原创文章，转载请附上博文链接！