//返回一个字符串中有汉字的个数

function str_chNum(s : string): integer;

var a:string;

    b:widestring;

    chn,eng:integer;

begin

   a:=s;

   b:=a;

   chn:=(length(a)-length(b));

  // eng:=length(a)-chn*2;  //英文字数

  result:=chn;

end;