tirar pontos e e traços

Delphi

20/02/2015

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

Leonardo Walter

Curtidas 0

Respostas

Leandro Peralta

Leandro Peralta

20/02/2015

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);
GOSTEI 0
Leonardo Walter

Leonardo Walter

20/02/2015

muito obrigado deu certinho, caso resolvido
GOSTEI 0
Douglas

Douglas

20/02/2015

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);


Leonardo, boa dica. Você poderia optimizar seu código assim tbm:

function retirarCaracterInvalido(pCaracter: string): string
const
  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!
GOSTEI 0
POSTAR