Delphi判断全角字符方法

Delphi中判断是否含有全角字符方法： 

 

//判断全角限制字符

if Length(pStr) > Length(WideString(pStr))   then   begin

    Result:='Full-width characters';

    exit;

end;

 

说明：

Length('汉字')=4

Length(WideString('汉字'))=2

　　－－本文来源于[TTT BLOG]：http://www.taoyoyo.net/ttt/post/190.html

(提示：转载时请务必保留版权信息或者注明来源。)