Inno设置如何检查一个字符串是否包含至少一个特殊字符

Question

我正在编写脚本来检查我的密码字符串是否至少包含一个特殊字符。我学会了InnoSetup不可能使用正则表达式。

有人可以帮助我实现这个目标吗？

由于事先

节目播音员

Answer 1

[code] 
function PasswordContainsAtLeastOneSpecialChar(Pass : String) : Boolean; 
var 
    i : integer; 
begin 
    Result := false; 

    for i:=1 to length(Pass) do 
    begin 
     case Pass[i] of 
      '!', '"', '§', '$', '%', '&', '/', '(', ')', '=', '?', '\', '*', '#': // list all special characters here 
      begin 
      Result := true; 
      Exit; 
      end; 
     end; 
    end;       
end;