发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: Re: 怎样判断字符串为汉字在delphi下
发信站: 哈工大紫丁香 (2001年05月30日17:24:44 星期三), 站内信件

其中有个部分可以用来判断是否是汉字

统计中英文字个数 

    中国使用的是汉字，而又夹杂这些英文，这样我们在数字数时就麻烦了，电
脑是按字节来计算，一个汉字算两个字，而中国人的习惯是一个汉字就是一个字，
所以通过电脑来计算必须解决下列问题： 
利用文本控件Tmemo来存放文章，分别对中、英文的字符数进行统计，我们可以通
________________________________________________________________________
过把字符转换为ASCII码数值来进行判断，Ord()函数就可以把字符转换为对应的数
值，值33-126为键盘可使用字符，值127以上的为未知字符，即为汉字 
------------------------------------------------------------------------
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; 



【 在 verybad (臭狗狗) 的大作中提到: 】
: rt,谢谢


--

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]