如何获得字符串中汉字和英文的个数

Microsoft Word具有一项“字数统计”功能，可以统计出文本中汉字和英文的个数，其设计思路就是通过把字符转换为ASCII码数值来进行判断，Ord函数就可以把字符转换为对应的ASCII码数值，其中值为33-126为键盘可使用字符，值127以上的为未知字符，即汉字。下面完成一个示范程序，选择“File|New Application”菜单命令，在默认的窗体中添加1个Memo组件、2个Label组件和2个Button组件，完成对各个组件的属性设置及布局之后，在“字数统计”按钮的OnClick事件中添加如下所示的代码。

代码如下：

Procedure TForm1.Button1Click(Sender: TObject);
2

var s:string;
3

I,e,c:integer;
4

begin
5

s:=memo1.text; //Memo的内容
6

e:=0;c:=0;
7

for I:=1 to length(s) do
8

begin
9

if (ord(s[I])>=33)and(ord(s[I])<=126) then
10

begin
11

inc(e);
12

label1.caption:='英文字数：'+inttostr(e);
13

end
14

else
15

if (ord(s[I])>=127) then
16

begin
17

inc(c);
18

label2.caption:='中文字数：'+inttostr(c div 2);
19

end;
20

end;
21

end;