Alguém conhece isso ....
24/02/2003
0
procedure TForm1.Button1Click(Sender: TObject);
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;
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;
Maranhao
Curtir tópico
+ 0
Responder
Posts
25/02/2003
Leonardo Wolf
Acho que vc quer uma depuração do código!!!
uma linha simple de entender
um loop de 6
onde
vc ira colocar aleatoriamente uma letra do tamanho da letra mais um
formando uma palavra de seis dígito ou seja um, gerador de senha
é isso ???
uma linha simple de entender
um loop de 6
onde
vc ira colocar aleatoriamente uma letra do tamanho da letra mais um
formando uma palavra de seis dígito ou seja um, gerador de senha
é isso ???
Responder
Clique aqui para fazer login e interagir na Comunidade :)