Gerador de CPF D:

[SaYaDiN² 1]

Adicione 1 Button e 1 Edit

 

 

No evento OnClick do Button, coloque:

 

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);

 

Ao Clicar no Button Irá aparecer um CPF válido no Edit

 

Tutorial: √ỉ¢ŦσЯ_×ρ

[SiegeHard 0]

ue isso ai é do google --'

é mto facil achar 1 gerador de CPF

mais é muito util para se registrar em alguns conteudos.