Social Icons

^^

quarta-feira, 6 de abril de 2011

Função para formatar cpf no delphi

//Passe a string a ser formatada para a função.

Function FormataCPF(CPF : string): string;
begin
Result := Copy(CPF,1,3)+'.'+Copy(CPF,4,3)+'.'+Copy(CPF,7,3)+'-'+Copy(CPF,10,2);
end;

Nenhum comentário:

Postar um comentário

Popular Posts

- Arquivo -

 

Seguidores

Hora exata:

Total de visualizações de página