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
(提示：转载时请务必保留版权信息或者注明来源。)