Dll para validação de cpf/cnpj

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (4)  (1)

Arquivo com codigo fonte de uma dll para validacao de cpf/cnpj, com exemplo de uso no Delphi.

unit TestDll;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;

type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    procedure MaskEdit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure MaskEdit3Exit(Sender: TObject);
    procedure MaskEdit4Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function cpf(num:string):boolean;external CpfCnpj.dll index 1;
function cnpj(num:string):boolean;external CpfCnpj.dll index 2;

 

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
if cpf(maskedit1.Text) = false then showmessage(Errado!);

end;

procedure TForm1.MaskEdit2Exit(Sender: TObject);
begin
if cpf(maskedit2.Text) = false then showmessage(Errado!);
end;

procedure TForm1.MaskEdit3Exit(Sender: TObject);
begin
if cnpj(maskedit3.Text) = false then showmessage(Errado!);
end;

procedure TForm1.MaskEdit4Exit(Sender: TObject);
begin
if cnpj(maskedit4.Text) = false then showmessage(Errado!);
end;

end.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?