[Tutorial - Basicão] Criando Gerador de senhas aleatórias (Simples)

14 de Julho de 2012
83
42
18
24
#1
Hoje Vo Ensinar A Como Criar Um Programa que irá Gerar Senhas Aleatórias.

Nivel =Iniciante(Basicão)

1º Passo - No form, insira 1 Edit e 1 Button.

2º Passo - Dps De 2 cliques No Button 1 e Adicione Esse Código:

OBS: Não esqueça de declarar as variáveis:
 


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;
Créditos : ~Rafah
 
Editado por um moderador:
Curtidas: ajmeireles