formatar cpf e cgc no mesmo edit
Tenho as funçoes:
Function FormataCPF(CPF : string): string;
begin
Result:= Copy(CPF,1,3) + ´.´ + Copy(CPF,4,3) + ´.´ + Copy(CPF,7,3) + ´-´ + Copy(CPF,10,2);
end;
Function FormataCGC(CGC : string): string;
begin
result:= Copy(CGC,1,2) + ´.´ + Copy(CGC,3,3) + ´.´ + Copy(CGC,6,3) + ´/´ + Copy(CGC,9,4) + ´-´ + Copy(CGC,13,2);
end;
Quero que no onexit do memo Edit ele formate se for cpf ou cgc
[]´s
agradeço a ajuda
Favor postar o título em minúsculas , conforme as regras de conduta
Obrigado
Moderador
Function FormataCPF(CPF : string): string;
begin
Result:= Copy(CPF,1,3) + ´.´ + Copy(CPF,4,3) + ´.´ + Copy(CPF,7,3) + ´-´ + Copy(CPF,10,2);
end;
Function FormataCGC(CGC : string): string;
begin
result:= Copy(CGC,1,2) + ´.´ + Copy(CGC,3,3) + ´.´ + Copy(CGC,6,3) + ´/´ + Copy(CGC,9,4) + ´-´ + Copy(CGC,13,2);
end;
Quero que no onexit do memo Edit ele formate se for cpf ou cgc
[]´s
agradeço a ajuda
Favor postar o título em minúsculas , conforme as regras de conduta
Obrigado
Moderador
Anonymous
Curtidas 0
Respostas
Anonymous
31/03/2003
Conforme seu código, o usuário terá que informar o número sem a mascara, certo! Se for isso mesmo, sempre o CPF terá 11 caracteres e o CNPJ 18 caracteres. Tende usar a função length para verificar os caracteres do Edit. Se o result do Length for 11, chame a função FormataCPF, se o result do Length for 14 chame a função FormataCNPJ. Bom, acho que vai dar certo!
GOSTEI 0