计算字符串中汉字和英文的字数

var ans : AnsiString;

   wis : WideString;

   sub : Integer; //汉字的个数

Begin

 ans := '盗版delphi';

 wis := WideString( ans );

 sub := Length( ans ) - Length( wis );

End;

length(yourstring)-length(widestring(yourstring))=汉字个数

2*length(widestring(yourstring))-length(yourstring)=英语个数