Formatar CPF após validacao!

Delphi

09/10/2003

Ola, boa tarde.

Sou novato no assunto, e estou fazendo um sisteminha para aprender um pouco sobre delphi.

Bom, eu criei um campo CPF e, apos validar o mesmo atraves de uma rotina q eu peguei na net, eu queria saber como fazer para jogar mascara nos dados.

Exemplo:

digitei no edit 99999999999

apos validar, gostaria q retornasse
999.999.999-99


Se puder obter o mesmo exemplo para CNPJ, iria agradecer.


Abracos

André


Matrixkid

Matrixkid

Curtidas 0

Respostas

Arc

Arc

09/10/2003

use um maskedit....

para cpf coloque no edit mask:
cpf.EditMask :=´!999.999.999-00;1;_´;

no cnpj:
cnpj.EditMask :=´!99.999.999/0000-00;1;_´;


GOSTEI 0
Carlos Bernardo

Carlos Bernardo

09/10/2003

para cpf

function FormataCPF(const CPF: string): string;
var
I: integer;
begin
Result := ´´;
for I :=1 to length(CPF) do
if CPF[I] in [´0´..´9´] then
Result := Result + CPF[I];
Result :=
Copy(Result, 1, 3) + ´.´ +
Copy(Result, 4, 3) + ´.´ +
Copy(Result, 7, 3) + ´-´ +
Copy(Result, 10, 2);
end;

//


para cnpj

function FormataCNPJ(const CNPJ: string): string;
var
I: integer;
begin
Result := ´´;
for I :=1 to length(CNPJ) do
if CNPJ[I] in [´0´..´9´] then
Result := Result + CNPJ[I];
Result :=
Copy(Result, 1, 2) + ´.´ +
Copy(Result, 3, 3) + ´.´ +
Copy(Result, 6, 3) + ´/´ +
Copy(Result, 9, 4) + ´-´ +
Copy(Result,13, 2) ;
end;


para os dois casos, utilize no evento onExit do

edit1.Text := FormataCPF(Edit1.Text);
edit1.text := FormataCNPJ(Edit1.Text);

você pode seguir a mesma idéia para qualquer tipo de formatação , após validação....


GOSTEI 0
POSTAR