[Delphi] Generator hasłe

Witam.

Znalazłem taki mały kodzik do generowania haseł:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGroup; Edit1: TEdit; SpinEdit1: TSpinEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i , len : integer; begin len := SpinEdit1.Value; edit1.Text := ''; for i := 1 to len do begin case RadioGroup1.ItemIndex of 0: begin Edit1.Text := Edit1.Text+chr(ord('a')+random(26)); end; 1: begin Edit1.Text := Edit1.Text+chr(ord('A')+random(26)); end; 2: begin case random(2) of 0: Edit1.Text := Edit1.Text+chr(ord('a')+random(26)); 1: Edit1.Text := Edit1.Text+chr(ord('A')+random(26)); end; end; 3: begin case random(3) of 0: Edit1.Text := Edit1.Text+chr(ord('a')+random(26)); 1: Edit1.Text := Edit1.Text+chr(ord('A')+random(26)); 2: Edit1.Text := Edit1.Text+chr(ord('0')+random(10)); end; end; end; end; end; end.

Zauważyłem, że za każdym razem jak uruchomie program, wyświetla mi takie samo hasło. Mam pytanie jak można zmienić ten kody by sie hasło nie powtarzało. Z góry wielkie dzięki.

---

Przed pętlą for wywołaj jeszcze procedurę Randomize; która zainicjuje "losowość".


Przed pętlą for wywołaj jeszcze procedurę Randomize; która zainicjuje "losowość".
nie przed for tylko raz na początku, np. w OnFormCreate

Witam.


Przed pętlą for wywołaj jeszcze procedurę Randomize;która zainicjuje "losowość".

Wystarczyło tylko przed pętlą i już wszystko działa tak jak ma być. WIELKIE DZIEKI.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl