Como validar CNJP no MaskEdit ou Criticar

[mergulhador 0]

Olá gente,

 

To começando em Delphi,

 

eu tenho um monte de função, só que não sei usar nenhuma

 

O que eu quero, q depois q o cara digita-se um CNPJ no maskedit

e no Onexit ele abrisse uma janela criticando o CNPJ se ele fosse inválido.....

 

 

:wacko: :wacko: Devo ser um burraldo por não saber fazer isso

 

Agradeço pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Abraços

 

Mergulhador

[Celamar 0]

//-----------------------------------------------------------------------------

// function ValidarCNPJ

// formato padrão: 99.999.999/9999-99 = 14

//-----------------------------------------------------------------------------

function TFrmCadEmpresaGeradora.ValidarCNPJ (CNPJ : string) : boolean;

var

i, soma, mult: integer;

sCNPJ : string;

begin

Result := false;

 

sCNPJ := RetirarFormatacaoCNPJ(CNPJ);

if Length(sCNPJ) <> 14 then

exit;

 

soma := 0;

mult := 2;

 

for i := 12 downto 1 do

begin

soma := soma + StrToInt(sCNPJ[i]) * mult;

mult := mult + 1;

if mult > 9 then

mult := 2;

end;

 

mult := soma mod 11;

 

if mult <= 1 then

mult := 0

else

mult := 11 - mult;

 

if mult <> StrToInt(sCNPJ[13]) then

exit;

 

soma := 0;

mult := 2;

 

for i := 13 downto 1 do

begin

soma := soma + StrToInt(sCNPJ[i]) * mult;

mult := mult + 1;

 

if mult > 9 then

mult := 2;

end;

 

mult := soma mod 11;

if mult <= 1 then

mult := 0

else

mult := 11 - mult;

 

Result := mult = StrToInt(sCNPJ[14]);

end;

[mergulhador 0]

Meu amigo,Muito obrigado pela ajuda,Só não sei como ativar ela??????AbraçosMergulhador

[Celamar 0]

Tente assim:

 

procedure Tform1.Edit1Exit(Sender: TObject);begin  if not ValidarCPF(edit1.text) then  exit;end;