Gerador De Senhas (Resolvido)

[OSJunior]

Olá, gostaria de saber, se é possível escolher kuantos números o usuário quer com ke a senha seja formada.

function GeraSenha (aQuant: integer): string;
var
  i: integer;
const
  str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
begin
  for i:= 1 to aQuant do
  begin
    Randomize;
    Result := Result + str[Random(Length(str))+1];
  end;
end;

Para testar, adicione no formulário um Button e um Edit. No OnClick do botão, digite o seguinte código:

Edit1.Text := GeraSenha(5); 

[Progr'amador]

Olá OSJunior,

Não sei se entendi, mas adicione mais um Edit (Edit2) onde o usuário irá informar quantos digitos ele quer, e use assim:

Edit1.Text := GeraSenha(StrToInt(Edit2.text));

Abs. Progr'amador.

[OSJunior]

Vlw, Progr'amador, quando eu te falo que você manja, você num acredita.

Pro pessoal que quiser tentar, tem que substituir os Edits no código que o Progr'amador deu:

Edit2.Text := GeraSenha(StrToInt(Edit1.text));

[Progr'amador]

Ok! então, resolvido!

Tópico fechado...