Testando o componente TCNPJCPFEdit

Autor: Tadeu Pereira

Num novo projeto coloque um TCNPJCPFEdit e um TButton, no evento OnClick do TButton entre com o código abaixo, compile e teste:

01	procedure TForm1.Button1Click(Sender: TObject);
02	begin
03	case CNPJCPFEdit1.TipoDoc of
04	tdCNPJ:CNPJCPFEdit1.TipoDoc := tdCPF;
05	tdCPf:CNPJCPFEdit1.TipoDoc := tdCNPJ;
06	end;
07	end;

Figura 1 – Teste do componente TCNPJCPFEdit