delphi - 帮助更好的复选框逻辑

Question

我正在编写一个小型密码生成器，有 4 个组合复选框，它们是:大写字母、小写字母、数字和特殊字符。

我的问题是 - 我是否必须使用“if”语句检查逻辑中复选框的每种可能组合，或者是否有更快、更简单的方法可以进一步缩短代码？

如果这个问题相当愚蠢，我很抱歉，但如果确实有更好的方法，它将真正帮助我将来从中学习。

祝一切顺利

克里斯(香巴拉)。

Answer 1

为什么你认为你必须通过复选框的每种可能的组合？

检查这个基本功能。

假设您有 4 个复选框，分别为 CbUpper、CbLower、CbNumbers、CbSymbols。

现在你可以构造一个像这样的函数

function Generate(AllowUpper,AllowLower,AllowNumbers,AllowSymbols:Boolean; PassLen:Integer):AnsiString;
const
  UpperList  = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  LowerList  = 'abcdefghijklmnopqrstuvwxyz';
  NumberList = '0123456789';
  SymbolList = '@#()=¿?!¡[]';
var
  MyList  : AnsiString;
  Index   : Integer;
  i       : Integer;
begin
  Result:='';
  MyList:='';
   //here if the flag is set the elements are added to the main array (string) to process
   if AllowUpper   then MyList:=MyList + UpperList;
   if AllowLower   then MyList:=MyList + LowerList;
   if AllowNumbers then MyList:=MyList + NumberList;
   if AllowSymbols then MyList:=MyList + SymbolList;

   Randomize;
   if Length(MyList)>0 then
     for i:= 1 to PassLen do
     begin
      Index:=Random(Length(MyList))+1;
      Result:=Result+MyList[Index];
     end;
end;

并以这种方式调用

Var
  MyPassword : AnsiString;
begin
   MyPassword:=Generate(CbUpper.Checked,CbLower.Checked,CbNumbers.Checked,CbSymbols.Checked,20);