DELPHI判断字符串是否为数字

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi xe vcl - tlinklabel(链接标签)

Delphi 修改webbrowser的内容

Delphi 取整算法集合

Delphi 获取listbox1多选的值

Delphi动态创建30个按钮，每行6个共5行，顺序排列

Delphi中指针和地址切换的方法

Delphi wininet带进度下载http文件

Delphi中对url进行编码和解码

Delphi之数组

Delphi根据url获取缓存文件的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI判断字符串是否为数字