Alguém conhece isso ....
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
Curtidas 0
Respostas
Alphablend
24/02/2003
TÁ, MAS O QUE TEM D+ ESSA LINHA DE CÓDIGO ?????
GOSTEI 0
Leonardo Wolf
24/02/2003
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 ???
GOSTEI 0
Dor_poa
24/02/2003
O que que tem d+?
GOSTEI 0