Delphi中判断一个字符串是否为数字


本文整理自网络,侵删。

 Delphi中,想判断一个字符串是否为数字,有好多方法,这里列出两种简单的方法:

1. 自定义函数

function isnum(str:string):boolean;
var
i:integer;
begin
for i:=1 to length(str) do
if not (str[i] in ['0'..'9']) then
begin
result:=false;
exit;
end;
result:=true;
end;

也可以作如下定义:

function IsDigit(S:String):Boolean;
var i,j:integer;
begin
Result:=True;
j:=0 ;
for i:=1 to length(s) do
begin
if not (s[i] in ['0'..'9','.'])then
Result:=False;
if s[i]='.' Then
j:=j+1;
end;
if j>1 then
Result:=False;
if (s[1]='.') or (s[length(s)]='.') then
Result:=False;
s:=copy(s,1, pos('.', S)-1);
j:=0;
for i:=1 to length(s) do
begin
if s[I]=’0’ then
j:=j+1;
end;
if j>1 then
Result:=False;
end;


2. 用获取例外的句柄

try
strtoint(ed1.Text);
except
showmessage('请输入合法匹配串!');
exit;
end;

相关阅读 >>

Delphi gettickcount获取电脑开机时间

Delphi 创建自己的定时器 定时清理内存

Delphi 使用openjdk进行Delphi android开发

Delphi 杨辉三角

Delphi 循环 low high 用法

Delphi 用cxgrid把数据导出到excel时乱码的解决办法

Delphi xe5 重启 关闭 windows 8

Delphi 将richedit的内容输出到一个image图像中

Delphi 给变量加引号

tidtcpserver控件中文指南

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...