Formatando cep (99.999-999)
Código
Var
CPF : string;
CPF =: '99999999' ;
CPF =: COPY(CPF,1,2)+'.'+COPY(CPF,3,3)+'-'+COPYCPF,6,3) ;
label1.caption := CPF ;
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Object pascal
Adicionada dia: 27/06/07
Por: Luciano Angelini
Visualizada: 5351 vezes
Adicionada dia: 27/06/07
Por: Luciano Angelini
Visualizada: 5351 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009