delphi编程统计中英文字个数

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

利用文本控件TMemo来存放文章分别对中英文的字符数进行统计我们可以通过把字符转换为ASCII码数值来进行判断Ord()函数就可以把字符转换为对应的数值值为键盘可使用字符值以上的为未知字符即为汉字

procedure TFormButtonClick(Sender: TObject);

var s:string;

iec:integer;

begin

s:=memotext;

e:=;c:=;

for i:= to length(s) do

begin

if (ord(s[i])>=)and(ord(s[i])<=) then

begin

inc(e);

labelcaption:=英文字数+inttostr(e);

end

else

if (ord(s[i])>=) then

begin

inc(c);

labelcaption:=中文字数+inttostr(c div );

end;

end;

end;