Page Comparison

Objetivo

O objetivo deste documento é mostrar como validar números de CNPJ, CPF e PIS/PASEP, além de verificar se a sigla do Estado informado está correta.

...

As funções em uso serão descritas mais a frente, neste documento.

Unit uPrinc

A “unit uPrinc” é a unidade principal do script. Aquela que é executada primeiro e que cria o formulário para que o usuário possa fazer as validações desejadas.

...

uses
   uFrmValidaNumDoc;
   
var
  formulario: TFrmValidaNumeracaoDocumentos;
  
begin
  formulario := TFrmValidaNumeracaoDocumentos.Create(nil);
  
  try
      if formulario.ShowModal = MrOk then
      begin
      end;
  
  finally
     formulario.free;    
  end;
end;

Criando o formulário de validação

Clique botão “New Form” ou no menu “File → New Form” para criar o novo formulário.

...

Por meio do site https://4devs.com.br , podem ser criados alguns números de documentos fictícios que podem ajudar nos testes. Os números podem ser digitados com, ou sem as máscaras de separação.

Testando o Script

Para executar o “script”, basta executar o atalho “F9” ou pressionar o botão “Run”. O formulário será executado, conforme imagem abaixo, desconsiderando as diferenças do “layout”.

...