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中自适应窗体的实现

Delphi xe6 android下捕获功能键

Delphi版内存共享

Delphi checkbox 透明

Delphi word文档内容批量替换

Delphi 对zlib单元进行再封装

Delphi 实现批量文件名修改

Delphi 获取局域网内的机器名

Delphi webbroker standalone 模式下当作一个普通的 webserver 响应静态网页或其它文件的请求

fastmm5

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

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