delphi统计一个字符串中汉字的个数

//返回一个字符串中有汉字的个数function str_chNum(s : string): integer;var a:string; b:widestring; chn,eng:integer;begin a:=s; b:=a; chn:=(length(a)-


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

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;


相关推荐

[!--temp.pl--]