Fórum validar cnpj #279741

Na proxima vez procure no Pesquisar antes, pq assim naum ficam postando coisas repetidas.

Ta aki: [url]http://forum.clubedelphi.net/viewtopic.php?t=42841&start=0&postdays=0&postorder=asc&highlight=validar+cnpj[/url]

Use a função abaixo. Tem que pasar o CPF com 11 caracteres.


Function TForm1.VerCpf (NumCpf : string) : boolean;

var I,Digito,D1,D2 : integer;

begin
Digito := StrToInt(Copy(NumCpf,10,2));
D1 := 0;
D2 := 0;
for I := 1 to 9 do
begin
D1 := D1 + (StrToInt(NumCpf[I]) * (11-I));
D2 := D2 + (StrToInt(NumCpf[I]) * (12-I));
end;
D1 := 11 - (D1 mod 11);
if D1 > 9 then
D1 := 0;
D2 := D2 + (D1 * 2);
D2 := 11 - (D2 mod 11);
if D2 > 9 then
D2 := 0;
D1 := (D1 * 10) + D2;
Result := (D1 = Digito);
end;