Подскажите что и как дописать для того, что бы количество паролей (edit2), так же как и количество символом в пароле (edit1) можно было менять.

[Дудуцц]

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


 const
 s1='QWERTYUIOPASDFGHJKLZXCVBNM';
 s2='qwertyuiopasdfghjklzxcvbnm';
 s3='0123456789';
 s4='!@#$%^&*(){}[]|\/"-+=№;:?*';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s0, password:string;
  i, c: integer;
begin

if CheckBox1.Checked then s0:=s0+s1;
if CheckBox2.Checked then s0:=s0+s2;
if CheckBox3.Checked then s0:=s0+s3;
if CheckBox4.Checked then s0:=s0+s4;
password:='';
c:=StrToInt(Edit1.Text);
for i:= 1 to c do password:=password+s0 [Random(Length(s0))+1];
Memo1.Lines.Clear;
Memo1.Lines.Add(password);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9']) then Key:=#0;
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

если я Вас правильно понял, то так:

procedure TForm1.Button1Click(Sender: TObject);
var s0, password:string;
  i, c, j, n: integer;
begin
   s0 := '';
   if CheckBox1.Checked then s0:=s0+s1;
   if CheckBox2.Checked then s0:=s0+s2;
   if CheckBox3.Checked then s0:=s0+s3;
   if CheckBox4.Checked then s0:=s0+s4;
   c:=StrToInt(Edit1.Text);
   Memo1.Lines.Clear;
   n := StrToInt(Edit2.Text);
   for j:=1 to n do begin
      password:='';
      for i:= 1 to c do password:=password+s0 [Random(Length(s0))+1];
      Memo1.Lines.Add(password);
   end;
end;

[Дудуцц]

Благодарю

[Serge_Bliznykov]

Сообщение от Дудуцц

Благодарю

пожалуйста.

я там чуть-чуть подправил код, проглядел ваш косяк.
Переменные перед использованием ВСЕГДА нужно иницилизировать!
поэтому в начале процедуры сделайте присвоение s0 пустой строки.

begin
   s0 := '';