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 10 跨平台三层数据库应用教程

Delphi 如何从url提取文件名？

Delphi 设置系统启动文件夹自身开机自动运行

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 判断文件是否被使用

Delphi trayicon1 托盘气泡提示

Delphi xe8 为image设置渐变效果

Delphi 查找并删除过期的日志目录

Delphi 中 使用 tidhttp 提交post数据

Delphi xe7 rest获取天气实例

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

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