Buscar por:

Validação de CPF

Código

unit Uvalida_cpf;

interface

uses

    SysUtils;

implementation

function TestaCpf( xCPF:String ):Boolean;

{Testa se o CPF é válido ou não}

Var

d1,d4,xx,nCount,resto,digito1,digito2 : Integer;

Check : String;

Begin

d1 := 0; d4 := 0; xx := 1;

for nCount := 1 to Length( xCPF )-2 do

    begin

    if Pos( Copy( xCPF, nCount, 1 ), '/-.' ) = 0 then

       begin

       d1 := d1 + ( 11 - xx ) * StrToInt( Copy( xCPF, nCount, 1 ) );

       d4 := d4 + ( 12 - xx ) * StrToInt( Copy( xCPF, nCount, 1 ) );

       xx := xx+1;

       end;

    end;

resto := (d1 mod 11);

if resto < 2 then

   begin

   digito1 := 0;

   end

else

   begin

   digito1 := 11 - resto;

   end;

d4 := d4 + 2 * digito1;

resto := (d4 mod 11);

if resto < 2 then

   begin

   digito2 := 0;

   end

else

   begin

   digito2 := 11 - resto;

   end;

Check := IntToStr(Digito1) + IntToStr(Digito2);

if Check <> copy(xCPF,succ(length(xCPF)-2),2) then

   begin

   Result := False;

   end

else

   begin

   Result := True;

   end;

end;

end.