Criando Gerador de CPF

por korpses Dom Jan 09, 2011 3:15 pm

Adicione 1 Button e 1 Edit

No evento OnClick do Button, coloque:(Retire o Begin)

[center]
Código:
var Procode9: Array [1..9] of Char; Procode1, Procode2: Char; i, soma, d1, d2: Integer; begin for i := 1 to 9 do Procode9[i] := 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 + Pro[/center]code2)
;