Eu queria criar um gerador de numeros e letras misturados, onde eu coloca-se a quantidade de caracteres com textbox, e button eu achei um exemplo de um gerador de cash em delphi para vocês entenderem o que eu quero. VB 2008
CARTAO : var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=16;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end;
Pin : var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Edit2.Text:='';
for i:=1 to max do
begin
Edit2.Text:=Edit2.Text+str[random(length(str))+1];
end;
end;
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=16;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end;
Pin : var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Edit2.Text:='';
for i:=1 to max do
begin
Edit2.Text:=Edit2.Text+str[random(length(str))+1];
end;
end;
Comment