Delphi中判断字母与汉字

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;   //保存字符串
i,e,c:integer;//保存变量
begin
s:=memo1.text;
e:=0;c:=0;
for i:=1 to length(s) do
    begin
    if (ord(s[i])>=33)and(ord(s[i])<=126) then
    //判断字符的顺序号
      begin
      inc(e);
      label1.caption:='字母个数：'+inttostr(e);
      end
    else
      if (ord(s[i])>=127) then
      //判断字符的顺序号
      begin
      inc(c);
      label2.caption:='汉字个数：'+inttostr(c div 2);
      end;
end;
end;

Delphi中判断字母与汉字相关推荐

关于Delphi中使用正则表达式获取汉字的问题
最近在使用Delphi XE编写程序的过程中,需要统计一个字符串中的英文字母,数字,汉字以及其他字符:在网上找了很久关于用Pascal语言提取中文汉字的方法,发现都不能很好的实现,于是经本人亲测有效, ...
Delphi中判断控件的详细类型
var t:TFrmMain; begin if(self is TForm) then begin if(self.ClassType=tform) then begin ...
java比较字符串大小写_java 字符串中判断字母大小写方法
展开全部方法一: 根据 Character 类提供的大小写判断方法 ``e68a8462616964757a686964616f31333366306434`java Character.isUpp ...
java 字符串中判断字母大小写方法
方法一:可利用java带有的Character.isLowerCase与Character.isUpperCase来进行判断以下为判断字符串是否都为小写字母或都为大写字母组成的 import jav ...
Python中判断字母数字的方法合集
字符串.isalnum() : 判断是否是数字字母的组合,如果包含空格返回False. 字符串.isalpha() : 判断是否是字母,不区分大小写字符串.isdigit() : 判断是否是数字字符 ...
Java字符串中判断是否有汉字
String str = "test中文vb汉字gfh"; String regEx = "[\\u4e00-\\u9fa5]"; /** * 判断有没有中文 ...
java判断字符的大小写_java 字符串中判断字母大小写方法
方法一:可利用java带有的Character.isLowerCase与Character.isUpperCase来进行判断以下为判断字符串是否都为小写字母或都为大写字母组成的 import jav ...
python中判断字母大小写和数字字符串
字符串.isalnum() 所有字符都是数字或者字母,为真返回 Ture,否则返回 False. 字符串.isalpha() 所有字符都是字母,为真返回 Ture,否则返回 False. 字符串.is ...
Delphi中判断一个日期是否是星期几、周末、工作日
应用场景特地的场合会用到,比如每天做不同的任务时就会需要用到. 函数代码 function IsSunday(const DT: TDateTime): Boolean; beginResult : ...

Delphi中判断字母与汉字

Delphi中判断字母与汉字相关推荐

最新文章

热门文章