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

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

代码如下：

 

 1 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;

转载于:https://www.cnblogs.com/sonicit/archive/2007/05/15/746614.html