Buscar

Senhas aleatórias, que funciona !!!

Código

Procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=6;
begin
Randomize;
Edit1.Text:='';
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 08/05/07
Por: Tércio Câmara Cordeiro
Visualizada: 3397 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009