Delphi中判断是否含有全角字符方法:
//判断全角限制字符if Length(pStr) > Length(WideString(pStr)) then begin Result:=^Full-width characters^; exit;end;
//判断全角限制字符
if Length(pStr) > Length(WideString(pStr)) then begin
Result:=^Full-width characters^;
exit;
end;
说明:
Length(^汉字^)=4
Length(WideString(^汉字^))=2