function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字
var
i:integer;
begin
result:=true; //设置返回值为 是(真)
Vaule:=trim(Vaule); //去空格
for i:=1 to length(Vaule) do //准备循环
begin
if not Vaule[i] in ['0'..'9'] then //如果Vaule的第i个字不是0-9中的任一个
begin
result:=false; //返回值 不是(假)
exit; //退出函数
end;
end;
end;
function IsUpperCase(Vaule:String):Boolean; //判断Vaule 是不是大写字母
var
i:integer;
begin
result:=true; //设置返回值为 是
Vaule:=trim(Vaule); //去空格
for i:=1 to length(Vaule) do //准备循环
begin
if not Vaule[i] in ['A'..'Z'] then //如果Vaule的第i个字不是A-Z中的任一个
begin
result:=false; //返回值 不是
exit; //退出函数
end;
end;
end;
function IsLowerCase(Vaule:String):Boolean; //判断Vaule 是不是小写字母
var
i:integer;
begin
result:=true; //设置返回值为 是
Vaule:=trim(Vaule); //去空格
for i:=1 to length(Vaule) do //准备循环
begin
if not Vaule[i] in ['a'..'z'] then //如果Vaule的第i个字不是a-z中的任一个
begin
result:=false; //返回值 不是
exit; //退出函数
end;
end;
end;
同理 如果想判断是不是字母的话
function IsEnCase(Vaule:String):boolean; //判断Vaule 是不是字母
var
i:integer;
begin
result:=true; //设置返回值为 是
Vaule:=trim(Vaule); //去空格
for i:=1 to length(Vaule) do //准备循环
begin
if (not Vaule[i] in ['A'..'Z']) or
(not Vaule[i] in ['a'..'z']) then //如果Vaule的第i个字不是A-Z或者a-z中的任一个
begin
result:=false; //返回值 不是
exit; //退出函数
end;
end;
end;
下面是调用方法:
if IsNumberic('嘿嘿') then showmessage('是数字') else showmessage('我不是数字'); //返回 “我不是数字”
if IsUpperCase('HAHA') then showmessage('是大写字母') else showmessage('不大写字母'); //返回 “是大写字母”
if IsLowerCase('abcdEfg') then showmessage('是小写字母') else showmessage('不是小写字母'); //返回 “不是小写字母”
if IsEnCase('abcdEfg') then showmessage('是英文 ') else showmessage('不是英文'); //返回 “是英文”
分享到:
相关推荐
本实例主要是完成判断字符串中是否包括有大小写字母,判断字符串中是否有小写字母,使用了Delphi中的IsLower来判断,使用showmessage来显示判断结果: begin islow := 0; s := Edit1.Text; n := length(s); ...
在网上找了一些判断字符串是否为数字的方法,但总觉得繁琐,自己用delphi编写的一个判断的函数,供大家分享
Delphi - 判断字符串 数字 字母 空格 其他字符个数
delphi 判断字符串是否为整数,输入一个任意的数,包括小数等,程序将为您判断出用户输入的是否是整数,程序功能比较单一,仅此而已,是一本书中的例子。
精品资料欢迎下载
对于给定任意的字符串,如何快速的判断该字符串中是否包含汉字。
Delphi 判断某一字符是否在字符串中,这里用到了Delphi AnsiMidstr函数、length函数,第一个文本框输入的是完整的字符串,第二个是目标字符串,程序将在完整字符串中查找目标字符串是否存在: begin if length...
delphi中如何判断是不是数字delphi中如何判断是不是数字
Delphi 字符串截取函数详细应用以及例子
delphi 字符串函数AnsiStrLastChar('你好')结果是“好”。如果有半个汉字出现,返回这半个汉字。二者字符串长度分别为2和1。 CompareStr - 区分大小写 CompareText - 不区分大小写 /////////////////////////////////...
Delphi 判断字符串中是否有中文,这个挺有意思,也很实用的技巧,在一串字符中判断是否有中文文字,根据所点字节都可以判断,不过本源码中所使用的方法也很有参考性,最终的运行示例效果如截图所示。
Delphi计算或比较两组字符串的相似程度 对字符串进行挨个读取并进行比对,取得相似度
delphi实现数字和字母组合的字符串数字部分 解决数值型长度不够时加1
Delphi 7.0 提取字符串中指定子字符串后的字符串,这个平时在字符处理时候使用几率也挺高的,获取指定字符串后面的字符串,比如获取扩展名等也可以用此方法,本例中要用到After函数,测试时,当单击按钮时,执行以下...
Delphi中处理字符串的相关方法 1、字符集转换方法 (1)stringtowidechar function stringtowidechar(const source:string;dest :pwidechar;destsize :integer) :pwidechar; 将默认string类型的字符串转换为unicode...
delphi字符串函数大全 涉及到很多有用的字符串函数,附有实例
delphi枚举字符串转换
关于 Delphi字符串、数组的函数,包含【Copy】、【Concat】等函数
Delphi TMemo字符串的查找完全实现 已经完全的解决Delphi TMemo的查找对话框 和 替换对话框 功能 的所有功能 查看 GIF http://images.cnblogs.com/cnblogs_com/xe2011/524919/o_TFindDialog.gif
自已写的一个数值字符表达式计算函数,只能简单的加减剩除及括号嵌套,可扩充特定字符代替字段等数值,比如可定义 PI等。