Senhas Aleatórias

[Vivendo&Aprendendo]

Pessoal necessito de uma função ou procedimento que me forneça as combinações de números gerados por caracteres que eu dígito em um edit, preciso também que essas combinações sejam armazenadas em um txt e uma tabela do access.

[Guest RM]

Talvez te ajue em parte ao menos...

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

const

str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';

max=6;

begin

Edit1.Text:='';

for i:=1 to max do

Edit1.Text:=Edit1.Text+str[random(length(str))+1];

end;

SDS/RM