Delphi获得字符串中汉字的总个数
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; 
字符串截取20位

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。