首页 / 软件开发 / Delphi / delphi编程统计中英文字的个数

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

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