Delphi中密码字符校验（不允许中文等一些特殊字符）

----------------

--一个简单的密码非法字符校验，存在非法字符，就返回false;

CheckPassWord(‘hhhhhh哈哈’)；//有中文，返回False

-------------------

function CheckPassWord(PassWord: string): boolean; //不允许（汉字和空格，双引号等）
var
wStr:WideString;
wChar:WideChar;
i:Integer;
vValue:Integer;
begin
Result:=False;
if PassWord='' then
Exit;
wStr:=PassWord;
for i:=1 to Length(wStr) do
begin
wChar:=wStr[i];
vValue:=Ord(wChar);
if vValue>126 then //127是个三角形算非法字符，汉字属于非法字符
Exit
else
begin
if vValue >32 then
begin
if vValue in [34,39,94,96] then// ("34),('39),(^94),(`96)
Exit;
end
else //0到32也认为是非字符 ； 32是空格
Exit;
end;
end;
Result:=True;
end;