formatacao mascara...ME AJUDE ADMIN

01/02/2003

2

cordiais saudações...
estou utilizando a mesma edit para receber CNPJ/CPF a duvida é a seguinte:

como faço pra quando o usuario digitar CPF (11 digitos) no evento on exit o delphi formatar 999.999.999-99 e se for CNPJ (14 digitos) formatar 99.999.999/9999-99


Responder

Posts

01/02/2003

Thiago

ja pensou em utilizar radioButons?


procedure
If RadioButton1.Checked := True then// deu branco eh := ou = nesta linha.
begin
Edit1.Text := CPf
end else
Edit1.Text := Cnpj
end;


Responder

01/02/2003

Vasques

Olá!
No evento OnExit antes de aplicar a mascara
veja o tamanho da string digitada e depois dicida o qual a mascara a aplicar. Ex:

if Length(S) = 11 then
... aplicar 999.999.999-99
else
if Length(S) = 14 then
... aplicar 99.999.999/9999-99
else
ShowMessage(´Dados errados´);

espero ter ajudado.
vasques


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar