//函 数 名: IsDigit
//返 回 值: boolean
//日 期:2011-03-01
//参 数: String
//功 能: 判断一个字符串是否为数字
//作 者:liubin
//***************************************************************************
function IsDigit(S:String):Boolean; //变量S为要判断的字符串,返回true则正确
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 //判断字符串每个字符即s[i],是否为"0"到'9"数字及".'
Result:=False;
if s[i]='.' Then //统计字符串中"."的个数
j:=j+1;
end;
if j > 1 then //字符串中"."的个数大于1
Result:=False;
if (s[1]='.') or (s[length(s)]='.') then //字符串中"."的在最前面和最后面
Result:=False;
//增加, 字符串中"."的位置之前有两个"0"判断
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 //字符串中"."的位置之前有两个"0"
Result:=False;
end;
分享到:
相关推荐
在网上找了一些判断字符串是否为数字的方法,但总觉得繁琐,自己用delphi编写的一个判断的函数,供大家分享
Delphi - 判断字符串 数字 字母 空格 其他字符个数
delphi 字符串函数AnsiStrLastChar('你好')...{判断字符是否是数字} function IsDigit(ch: char): boolean; begin Result := ch in ['0'..'9']; end; {判断字符是否是大写字符} function IsUpper(ch: char): boolean;
Delphi判断字符串是否是数字、字母、大小写字母 利用命令开启Sql Server数据库服务和数据库 application.MessageBox的使用 打印报表、打开报表控件设计报表 拼字符串 进行英文字母大小写转换
{在一个字符串中查找某个字符串的位置} function StrNum(ShortStr:string;LongString:string):Integer; {测试通过} {* 返回某个字符串中某个字符串中出现的次数} function FindStr(ShortStr:String;LongStrIng:...
此外,还可以参考一些Delphi的技巧和小窍门,如判断字符串是否包含于另一个字符串、使窗口全屏显示、数字格式化输出等,这些都可以提高编程效率和程序的实用性。 对于想要深入学习Delphi的开发者,还可以参考一些...
0192 判断字符串是否为日期或时间 125 0193 获得指定月的最后一天 127 0194 在指定的日期上加上3月 127 0195 实现倒计时功能 128 0196 判断指定年份是否为闰年 129 0197 调用系统设置日期对话框 129 ...
0192 判断字符串是否为日期或时间 125 0193 获得指定月的最后一天 127 0194 在指定的日期上加上3月 127 0195 实现倒计时功能 128 0196 判断指定年份是否为闰年 129 0197 调用系统设置日期对话框 129 ...
2字符串加密技术函数 3整数判断函数 4货币判断函数 5数字号码判断函数 6E-Mail格式判断函数 7软件注册机制检验函数 8获取汉字的拼音首字母函数 9整形数据到多位字符串的转换函数 10将时间转换成以小时为...
实例1 创建一个名为“Project1”工程文件 第2课 Delphi的基本控件使用 实例2 制作文本显示程序 实例3 计算字符串长度程序设计 实例4 设计“文件”下拉菜单 实例5 设计显示多行文本的窗体 实例6 设计一个复选框程序 ...
替换某一字符串 27. SmallTOBig .................. 转化数字为大写中文(1 - 壹) 28. CreateShortCut .............. 建立快捷方式 29. myAddDocument ............... 增加文件到最近打开过的文档 30. GetFileIcon...
实例301 利用变量查询字符串型数据 403 实例302 利用变量查询日期型数据 404 9.3 数据前若干名 406 实例303 查询前10名数据 406 实例304 查询后10名数据 407 实例305 取出数据统计结果前10名数据 408 ...
// 去除一字符串中的所有的数字 procedure TStringFunction.ClearNum(Memo: TMemo); var str: string; i: Integer; begin str := '1234567890'; for i := 0 to Length(str) do Memo.text := StringReplace(Memo...
1.3 运行第一个HLA程序 1.4 基本的HLA数据声明 1.5 布尔值 1.6 字符值 1.7 Intel80x86处理器简介 1.8 基本的机器指令 1.9 基本的HLA控制结构 1.10 HLA标准库入门 1.11 关于TRY..ENDTRY的其他细节 1.12 高级汇编语言...
设定字符串为“张三,你好,我是李四” 产生张三的密钥对(keyPairZhang) 张三生成公钥(publicKeyZhang)并发送给李四,这里发送的是公钥的数组字节 通过网络或磁盘等方式,把公钥编码传送给李四,李四接收到...
//判断字符串是不是有效数字在字符串 Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//检测在一个字符串中是否包括另一个字符串 function IsCOMClassRegistered(GUID:TGUID):Boolean;//判断一个COM...
设定字符串为“张三,你好,我是李四” 产生张三的密钥对(keyPairZhang) 张三生成公钥(publicKeyZhang)并发送给李四,这里发送的是公钥的数组字节 通过网络或磁盘等方式,把公钥编码传送给李四,李四接收到...
设定字符串为“张三,你好,我是李四” 产生张三的密钥对(keyPairZhang) 张三生成公钥(publicKeyZhang)并发送给李四,这里发送的是公钥的数组字节 通过网络或磁盘等方式,把公钥编码传送给李四,李四接收到...
设定字符串为“张三,你好,我是李四” 产生张三的密钥对(keyPairZhang) 张三生成公钥(publicKeyZhang)并发送给李四,这里发送的是公钥的数组字节 通过网络或磁盘等方式,把公钥编码传送给李四,李四接收到张三编码后...