0Seguir este tópico [Tutorial] Crie um gerador de CPF

['Lenneth 487]

Facil, adicione 1 button e 1 Edit, que ficam na aba STANDARD

 

Organize da sua maneira

 

Adicione o Codigo abaixo no Onclick no button, ou seja de um duplo click no button e adicione o Codigo.

vc pode alterar o nome Procode por outro a seu gosto. Exemplo: procode9,procode1 e assim por diante.

var Procode9: Array [1..9] of Char;

Procode1, Procode2: Char;

i, soma, d1, d2: Integer;

begin

for i := 1 to 9 do Procode9 := IntToStr(Random(9))[1];

 

soma := 0;

for i := 10 downto 2 do soma := soma + (i * StrToInt(Procode9[11 - i]));

d1 := soma mod 11;

if ((d1 = 0) or (d1 = 1)) then Procode1 := '0'

else Procode1 := IntToStr(11 - d1)[1];

 

soma := 0;

for i := 11 downto 3 do soma := soma + (i * StrToInt(Procode9[12 - i]));

soma := soma + (2 * StrToInt(Procode1));

d2 := soma mod 11;

if ((d2 = 0) or (d2 = 1)) then Procode2 := '0'

else Procode2 := IntToStr(11 - d2)[1];

 

Edit1.Text := String(Procode9 + Procode1 + Procode2);

 

Depois de colado o Codigo delete o Begin que fica encima da var.

 

Compile F9 e Salve seu Projeto.

se não souber como salvar.. ? so ir em File > Save all e escolhe onde quer salvar

 

Creditos Before123

[iMelo~' 15]

KKKKK ja vi sites disso mas em delphi nunca vi , obrigado por compartilhar com a wc, adicionado a quick list , mas acho que uma print e formatação seria muito bom pro topico.