好库网 好库网首页 | 我的好库
Delphi盒子

统计中英文字个数-Delphi资料

发布者:delphibox
发布日期:2011/4/8 22:33:50   更新日期:2011/4/8 22:33:50
阅读次数:1643
评分:4.80
介绍: 统计中英文字个数-Delphi资料
正文:

中国使用的是汉字,而又夹杂这些英文,这样我们在数字数时就麻烦了,电脑是按字节来计算,一个汉字算两个字,而中国人的习惯是一个汉字就是一个字,所以通过电脑来计算必须解决下列问题:

利用文本控件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;


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。