Formatar e Validar CPF/CNPJ

Delphi

12/08/2022

Olá Pessoal!

Estou tentando fazer a formatação e a validação do CPF/CNPJ utilizando o mesmo campo para o CPF e CNPJ.
Preciso de algo faça a formatação da "Máscara" no OnEnter do TDBEdit e a Validação no OnExit ao sair.

Abraços.
Willian Rodrigues

Willian Rodrigues

Curtidas 1

Melhor post

Willian Rodrigues

Willian Rodrigues

17/08/2022

Consegui resolver a máscara dessa forma:

if fdqry.FieldByName('FISJUR').AsString = 'F' then
begin
CPFCNPJ.Field.EditMask:='000.000.000-00';
end
else if fdqry.FieldByName('FISJUR').AsString = 'J' then
begin
CPFCNPJ.Field.EditMask:='00.000.000/0000-00'
end
GOSTEI 1
POSTAR