ActiveDelphi

gnandi83 · Enviada: Qui Mai 05, 2011 1:16 pm Assunto: FORMATAR CPF/CNPJ

Boa Tarde

Caros amigos delphianos..

Estou usando a seguinte funcao para formatar o cpf:

VAR
FORMATARCPF : STRING;
begin
inherited;
if Length(DBEcpf.Text) = 11 then
Begin
if cpf(DBEcpf.Text) = True Then
Begin
FormatarCPF:= Copy(DBEcpf.Text, 1,3)
+ '.' + Copy(DBEcpf.Text, 4,3)
+ '.' + Copy(DBEcpf.Text,7,3)
+ '-' + Copy(DBEcpf.Text, 10,2);
DBEcpf.Text:= FormatarCPF;
//Label1.Caption := 'CPF';
End
Else
begin
ShowMessage('CPF com erro. favor verificar');
DBEcpf.SetFocus;
end;
End;

end;

O problema é que, o campo cpf na minha tabela fiz so com 11 caracteres, e por causa da formatação acima, está indo para o banco tb com a formatação.

Queria que a formatação fosse apena no meu DBEdit, e jogasse para o banco apenas os numeros.
Como faço isso?

Obrigado

Cleber

abagattini · Enviada: Qui Mai 05, 2011 1:20 pm Assunto:

Dá um duplo clique em cima da tabela ou query, seleciona o campo e usa a propriedade DisplatFormat.

kcba · Enviada: Qui Mai 05, 2011 1:30 pm Assunto:

vc poderia criar mais uma variavel tipo: CPF1:string e atribuir a ela o valor digitado em DBEcpf.Text e quando for gravar no BD grava o valor de CPF1:
Assim:

rafa.spimenta · Enviada: Qui Mai 05, 2011 1:34 pm Assunto:

Mais aconselhável usar a dica do colega abagattini
_________________
"Você pode ter todo o dinheiro do mundo, mas há algo que jamais poderá comprar: um dinossauro!"

Meu blog:
http://delphiexpresso.blogspot.com/

fbnois · Enviada: Qui Mai 05, 2011 2:30 pm Assunto:

Bem eu uso esta funcão para remover pontos e outros caracteres

gnandi83 · Enviada: Qui Mai 05, 2011 3:53 pm Assunto:

imex · Enviada: Qui Mai 05, 2011 5:06 pm Assunto:

Mantendo o seu campo VarChar você pode experimentar configurar a propriedade EditMask do seu campo como