function HowManyChineseChar(Const s:String):Integer;
var
SW:WideString; C:String; i, WCount:Integer;
begin
SW:=s; WCount:=0;
For i:=1 to Length(SW) do
begin
c:=SW[i];
if Length(c)>1 then Inc(WCount);
end;
Result:=WCount;
end;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。