这段程序统计了英文字符个数和其他字符个数？？
我想知道怎样改进它，能让它更好的统计字数，比如：数字，英文，中文，标点符号等。请个位高手指点，在这里谢谢看过帖的人！！
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); //英文字符个数求和
edit1.text:=inttostr(e);
end
else
if (ord(s[i])>=127) then //当文本为中文字符时
begin
inc(c);
edit2.text:=inttostr(c div 2); //每个汉字占2个字节
end;
end;
end;
我想知道怎样改进它，能让它更好的统计字数，比如：数字，英文，中文，标点符号等。请个位高手指点，在这里谢谢看过帖的人！！
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); //英文字符个数求和
edit1.text:=inttostr(e);
end
else
if (ord(s[i])>=127) then //当文本为中文字符时
begin
inc(c);
edit2.text:=inttostr(c div 2); //每个汉字占2个字节
end;
end;
end;
谢谢！！
我刚学delphi，不是很懂，请多指教！！
S:String;
I,E,C:Integer;
begin
S:=Memo1.Text;
E:=0;
C:=0;
for I:=1 to Length(S) do
case Ord(S[I]) of
//根据字符不同进行相应处理
end;
end;
end;