Validando o CPF em uma Aplica��o Delphi

Este artigo apresenta como � realizada a validaç�o de um n�mero de Cadastro de Pessoa F�sica (CPF) que � o documento de identificaç�o do contribuinte pessoa f�sica perante a Receita Federal.

O CPF � um n�mero formado por 11 d�gitos dos quais os dois �ltimos s�o chamados de d�gitos verificadores (DV). Cada DV � calculado com base nos d�gitos anteriores e juntos servem para validar o n�mero do CPF como um todo. Assim, torna-se importante quando um n�mero de CPF � digitado pelo usu�rio final em uma aplicaç�o utilizar a funç�o isCPF, implementada na biblioteca de c�digos "ValidaCPF" apresentada na Listagem 1, para verificar se o n�mero informado est� correto evitando, por exemplo, o cadastro de CPFs inv�lidos.

Para exemplificar o algoritmo de verificaç�o do CPF ser� utilizado como exemplo o CPF n�mero 546.471.429-49.

O c�lculo dos DVs � executado em duas etapas usando para isto o m�dulo de divis�o 11 (m�dulo de divis�o � a parte inteira do resultado de uma divis�o):

Para calcular o 1� d�gito verificador:

Cada um dos nove primeiros n�meros do CPF � multiplicado por um peso que começa de 10 e que vai sendo diminuido de 1 a cada passo, somando-se as parcelas calculadas:

sm = (5*10)+(4*9)+(6*8)+(4*7)+(7*6)+(1*5)+(4*4)+(2*3)+(9*2) = 249;

Calcula-se o d�gito atrav�s da seguinte express�o:

11 - (sm % 11) = 11 - (249 % 11) = 11 - 7 = 4

Se o resto da divis�o (operador %) calculado for 10 ou 11, o d�gito verificador ser� 0; nos outros casos, o d�gito verificador � o pr�prio resto.

Para calcular o 2� d�gito verificador

Cada um dos dez primeiros n�meros do CPF, considerando-se aqui o primeiro DV, � multiplicado por um peso que começa de 11 e que vai sendo diminuido de 1 a cada passo, somando-se as parcelas calculadas:

sm = (5*11)+(4*10)+(6*9)+(4*8)+(7*7)+(1*6)+(4*5)+(2*4)+(9*3)+(4*2) = 299

Calcula-se o d�gito atrav�s da seguinte express�o:

11 - (sm % 11) = 11 - (299 % 11) = 11 - 2 = 9

Se o resto da divis�o (operador %) calculado for 10 ou 11, o d�gito verificador ser� 0; nos outros casos, o d�gito verificador � o pr�prio resto.

Desenvolvendo a Aplicaç�o Delphi

Criar uma nova aplicaç�o no ambiente de desenvolvimento Delphi 7 atrav�s da opç�o do menu "File|New|Application..." e realizar os tr�s passos descritos a seguir:

1� Passo:

Desenvolver o formul�rio principal da aplicaç�o como sugere a Figura 1. Atenç�o: observe que as caixas de textos explicativos utilizadas na figura apresentam a ordem sequencial e o nome do componente, a p�gina da sua localizaç�o e as propriedades que devem ser alteradas com os respectivos valores.

Figura 1. Formul�rio principal da aplicaç�o.

2� Passo:

Na unidade de c�digos (unit), apresentada na Listagem 1, constru�da atrav�s da opç�o do menu "File|New|Unit" deve-se implementar os subprogramas:

isCPF - retorna um valor booleano que indica se o n�mero de CPF � v�lido ou inv�lido;
iimprimeCPF - retorna o CPF formatado na m�scara: 999.999.999-99.

Listagem 1. Unit "ValidaCPF" com as funç�es "isCPF" e "imprimeCPF".


unit ValidaCPF;

interface
function isCPF(CPF: string): boolean;
function imprimeCPF(CPF: string): string;

implementation
uses SysUtils; // necessário para utilizar a função "StrToInt"

function isCPF(CPF: string): boolean;
var  dig10, dig11: string;
    s, i, r, peso: integer;
begin
// length - retorna o tamanho da string (CPF é um número formado por 11 dígitos)
  if ((CPF = '00000000000') or (CPF = '11111111111') or
      (CPF = '22222222222') or (CPF = '33333333333') or
      (CPF = '44444444444') or (CPF = '55555555555') or
      (CPF = '66666666666') or (CPF = '77777777777') or
      (CPF = '88888888888') or (CPF = '99999999999') or
      (length(CPF) <> 11))
     then begin
              isCPF := false;
              exit;
            end;

// try - protege o código para eventuais erros de conversão de tipo na função StrToInt
  try
{ *-- Cálculo do 1o. Digito Verificador --* }
    s := 0;
    peso := 10;
    for i := 1 to 9 do
    begin
// StrToInt converte o i-ésimo caractere do CPF em um número
      s := s + (StrToInt(CPF[i]) * peso);
      peso := peso - 1;
    end;
    r := 11 - (s mod 11);
    if ((r = 10) or (r = 11))
       then dig10 := '0'
    else str(r:1, dig10); // converte um número no respectivo caractere numérico

{ *-- Cálculo do 2o. Digito Verificador --* }
    s := 0;
    peso := 11;
    for i := 1 to 10 do
    begin
      s := s + (StrToInt(CPF[i]) * peso);
      peso := peso - 1;
    end;
    r := 11 - (s mod 11);
    if ((r = 10) or (r = 11))
       then dig11 := '0'
    else str(r:1, dig11);

{ Verifica se os digitos calculados conferem com os digitos informados. }
    if ((dig10 = CPF[10]) and (dig11 = CPF[11]))
       then isCPF := true
    else isCPF := false;
  except
    isCPF := false
  end;
end;

function imprimeCPF(CPF: string): string;
begin
  imprimeCPF := copy(CPF, 1, 3) + '.' + copy(CPF, 4, 3) + '.' +
    copy(CPF, 7, 3) + '-' + copy(CPF, 10, 2);
end;

end.

As unidades ou bibliotecas de c�digos (unit's) representam no Delphi a forma de disponibilizar um conjunto de subprogramas (functions e/ou procedures) destinados a solucionar uma s�rie de tarefas bastante corriqueiras, como por exemplo, a funç�o para validar n�meros de CPF. Na Listagem 2 pode-se observar a estrutura b�sica de uma unit.

Listagem 2. Estrutura b�sica de uma unit.


// Cabeçalho da unidade de c�digos.
// Atenç�o: O nome interno da unit deve ser o mesmo nome dado ao arquivo fonte
unit NomeDaUnit;

interface
// Comunicaç�o entre dois meios (dispositivos). Cont�m o cabeçalho
// dos procedimentos e funç�es declarados na unit, declaraç�o
// de objetos globais e o uso de outras unidades.

implementation
// Corpo dos procedimentos e funç�es anunciados na seç�o de
// interface e declaraç�es de objetos locais.
end.

Outro aspecto destac�vel da programaç�o foi a utilizaç�o da estrutura de controle de erros "try � except - end" que ir� proteger o c�digo para eventuais erros de convers�o de tipo com a funç�o "StrToInt".

3� Passo:

Agora novamente no formul�rio principal da aplicaç�o deve-se:

3.1: fazer a refer�ncia a unit "ValidaCPF", implementada no passo 2, atrav�s da opç�o do menu "File|Use Unit..." . A conclus�o deste passo resulta na seguinte linha de c�digo:

uses ValidaCPF;

3.2: implementar o seguinte c�digo no evento "onClick" do bot�o "Verificar CPF":

// usando as funç�es isCPF e imprimeCPF da unit "ValidaCPF"
if isCPF(CPF.Text)
   then Result.Caption := imprimeCPF(CPF.Text)
else Result.Caption := 'Erro: CPF inv�lido !!!';

Confira tamb�m

Validando o CPF em uma Aplicaç�o Java

Artigo

Teste unit�rio com JUnit