Gerar Senhas

[SaYaDiN² 1]

Adicione ao seu Form

 

1 Edit

1 Button

 

No Evento OnClick do Button 1 adicione o código:

 

var

i: integer;

const

str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvxyz';

max = 6;

begin

Edit1.Text := '';

for i := 1 to max do

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

end;

 

Lembre... tire o primeiro Begin -__-

 

Créditos: RaFaH