[AJUDA] Criando um Gerador de cash

[gabriel78965 0]

Cara,tenta fazer do meu jeito,clique duas vezes no button 1,apague o begin,e os dois end,o end; e o end.,ai adicione o seguinte codigo.

 

var

i: integer;

const

str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';

max = 16;

begin

Edit1.Text := '';

for i := 1 to max do

Edit1.Text := Edit1.Text + str[random(length(str))+1];

end;

 

end.

 

Agora vc vai fazer o pin,de dois cliques no button 2,apague a mesma coisa,e coloque o codigo..

 

var

i: integer;

const

str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';

max = 10;

begin

Edit2.Text := '';

for i := 1 to max do

Edit2.Text := Edit2.Text + str[random(length(str))+1];

end;

 

end.

 

Espero ter ajudado.

[Surfistinha£ 25]

Adicione

 

2 Edit

2 Button

 

No Button 1 Adicione Esse Codigo "Esse Codigo e o Codigo do Cartão"

 

Código:

var

i: integer;

const

str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}

max = 16;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}

begin

Edit1.Text := '';

for i := 1 to max do

Edit1.Text := Edit1.Text + str[random(length(str))+1];

end;

 

end.

No Button 2 Adicione Esse Codigo "Esse Codigo e do Pin do Cartão"

 

Código:

var

i: integer;

const

str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}

max = 10;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}

begin

Edit2.Text := '';

for i := 1 to max do

Edit2.Text := Edit2.Text + str[random(length(str))+1];

end;

 

end.

Aperte F9 e Seja Feliz

 

Creditos:Surfistinha

 

 

Se você quizer tbm pode improvisar utilizando um navegador para navegar em seu gerador somente na pagina da level up.