EditMask em tempo de execução

Delphi

24/03/2004

Preciso criar a máscara de CPF ou CNPJ num DBEdit e estou usando a rotina abaixo:

procedure TFrm_Cliente.DBEdt_CICClieChange(Sender: TObject);
begin
if DBCbox_Tipo.text = ´F´ then
TB_ClienteCIC_Clie.EditMask:= ´000000000\-99;0;_´
else
TB_ClienteCIC_Clie.EditMask:= ´00000000\/0000-99;0;_´

end;

Essa rotina cria o formato automaticamente, porém não permite a escrita no DBEdit, como seria a rotina correta?


Ivanlago

Ivanlago

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

24/03/2004

Tenta estas máscaras
if DBCbox_Tipo.text = ´F´ then 
TB_ClienteCIC_Clie.EditMask:= ´999999999-99;0;_´ 
else 
TB_ClienteCIC_Clie.EditMask:= ´99.999.999/9999-99;0;_´



GOSTEI 0
POSTAR