formatacao mascara...ME AJUDE ADMIN
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
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
Anonymous
Curtidas 0
Respostas
Thiago
01/02/2003
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;
procedure
If RadioButton1.Checked := True then// deu branco eh := ou = nesta linha.
begin
Edit1.Text := CPf
end else
Edit1.Text := Cnpj
end;
GOSTEI 0
Vasques
01/02/2003
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
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
GOSTEI 0