Fórum tirar pontos e e traços #511319
20/02/2015
0
boa tarde pessoal, estou com uma certa dificuldade, tenho gravado no meu banco de dados o campo CPF 000.000.000-00 , ele esta gravado assim blz ai tudo certo, o problema e que quero que ele aparece em uma label sem pontos e esse traço, quero que fique assim 00000000000
Leonardo Walter
Curtir tópico
+ 0
Responder
Posts
20/02/2015
Leandro Peralta
cria uma unit função, e antes do implementation, cole esse codigo ai
function sonumeros(str: string): string;
e depois do uses
function sonumeros(str: string): string;
var
i: Integer;
d1: string;
begin
for i := 1 to Length(str) do
begin
if Pos(Copy(str, i, 1), '/-.') = 0 then
d1 := d1 + Copy(str, i, 1);
end;
Result := d1;
end;
ai na forma que você quer que aparece a label
lCPF := sonumeros(query_CPF.Value);
function sonumeros(str: string): string;
e depois do uses
function sonumeros(str: string): string;
var
i: Integer;
d1: string;
begin
for i := 1 to Length(str) do
begin
if Pos(Copy(str, i, 1), '/-.') = 0 then
d1 := d1 + Copy(str, i, 1);
end;
Result := d1;
end;
ai na forma que você quer que aparece a label
lCPF := sonumeros(query_CPF.Value);
Responder
Gostei + 0
21/02/2015
Leonardo Walter
muito obrigado deu certinho, caso resolvido
Responder
Gostei + 0
21/02/2015
Douglas
cria uma unit função, e antes do implementation, cole esse codigo ai
function sonumeros(str: string): string;
e depois do uses
function sonumeros(str: string): string;
var
i: Integer;
d1: string;
begin
for i := 1 to Length(str) do
begin
if Pos(Copy(str, i, 1), '/-.') = 0 then
d1 := d1 + Copy(str, i, 1);
end;
Result := d1;
end;
ai na forma que você quer que aparece a label
lCPF := sonumeros(query_CPF.Value);
function sonumeros(str: string): string;
e depois do uses
function sonumeros(str: string): string;
var
i: Integer;
d1: string;
begin
for i := 1 to Length(str) do
begin
if Pos(Copy(str, i, 1), '/-.') = 0 then
d1 := d1 + Copy(str, i, 1);
end;
Result := d1;
end;
ai na forma que você quer que aparece a label
lCPF := sonumeros(query_CPF.Value);
Leonardo, boa dica. Você poderia optimizar seu código assim tbm:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | function retirarCaracterInvalido(pCaracter: string): stringconst caracterInvalido = '.-';var I: Integer; newCaracter: string;begin for I := 1 to Length(pCaracter) -1 do begin if Pos(pCaracter[i],caracterInvalido) = 0 then begin newCaracter := newCaracter + pCaracter[i] end; end;result := newCaracter; |
De qualquer forma, boa resposta!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)