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

//判断全角限制字符

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

    Result:=^Full-width characters^;

    exit;

end;

说明：

Length(^汉字^)=4

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