XSystemX
Usuário XPZ
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
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: