Formatar um cep

Delphi

06/03/2003

Como eu faço para formatar um cep


Solucion

Solucion

Curtidas 0

Respostas

Anonymous

Anonymous

06/03/2003

Use as seguintes Mascaras para:

IE = 99.999.999;1;_
CGC = 99.999.999/9999-99;1;_
CEP = 99999-999;1;_

Obs: Ocampo da tabela que deseja colocar a mascara deverar ser texto,
Voc deve abrir o componente Table selecione o campo que deseja
e no editMask Coloque a mascara....


GOSTEI 0
Marcelo

Marcelo

06/03/2003

Ai, se você não quizer usar um MaskEdit você pode usar tambem um Edit para formatar o CEP. Crie a seguinte função...

[b:78f48ca518]function[/b:78f48ca518] formataCEP(CEP : [b:78f48ca518]String[/b:78f48ca518]):[b:78f48ca518]String[/b:78f48ca518];
[b:78f48ca518]begin[/b:78f48ca518]
Result:=Copy(CEP,1,2)+´.´+Copy(CEP,3,3)+´-´+Copy(CEP,6,3);
[b:78f48ca518]end[/b:78f48ca518];

e no evento OnExit do Edit coloque o seguinte codigo...
[b:78f48ca518]procedure[/b:78f48ca518]...
[b:78f48ca518]begin[/b:78f48ca518]
ECEP.Text:=formataCEP(ECEP.Text);
[b:78f48ca518]end[/b:78f48ca518];

isso vai formatar seu CEP dessa forma: 35240000 para 35.240-000. Ai cara espero que seje o que vc ta precisando..... t+
:mrgreen:


GOSTEI 0
POSTAR