汉字夹杂英文,怎样计算个数？

Question

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;

Answer 1

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;

Answer 2

我也有这一段，kao都tmd操谁的。

Answer 3

http://www.csdn.net/expert/topic/838/838936.xml?temp=.4995539你看看这个帖子。
我就不再抄一遍了。