Fórum Formatar CPF após validacao! #187552
09/10/2003
0
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é
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
Curtir tópico
+ 0
Responder
Posts
09/10/2003
Arc
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;_´;
para cpf coloque no edit mask:
cpf.EditMask :=´!999.999.999-00;1;_´;
no cnpj:
cnpj.EditMask :=´!99.999.999/0000-00;1;_´;
Responder
Gostei + 0
16/11/2003
Carlos Bernardo
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....
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....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)