Concluir esta função
Quero retirar os - e os ( ) de um determinado campo que receberá os valores de numeros de telefone e preciso deixar apenas numeros... Comecei esta funcão, mas não tow conseguindo fazer com que a função possa retirar as strings encontrada deixando apenas numeros...
function TForm1.PegaTelefone(fTelefone: string): string;
begin
if (Pos ('-',fTelefone) > 0) then Result := Espero que possam mim ajudar!
begin
if (Pos ('-',fTelefone) > 0) then Result := Espero que possam mim ajudar!
Thiago Santana
Curtidas 0
Respostas
Marcos Iwazaki
02/02/2010
pode usar uma outra função p fazer isso
fTelefone := StringReplace(fTelefone,'-',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,'(',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,')',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,'-',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,'(',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,')',[rfReplaceAll]);
GOSTEI 0
Thiago Santana
02/02/2010
Socram valeu pela ajuda, mas
Qual seria a função que vc mim indicaria para fazer essa removação desses caracteres indesejaveis?
GOSTEI 0
Thiago Santana
02/02/2010
Socram valeu mesmo... Já consegui, fiz assim oh:
function TForm1.PegaTelefone(fTelefone: string): string;
var
I: integer;
begin
Result := '';
for I := 1 to Length(fTelefone) do
if Pos(fTelefone[I], '0123456789') > 0 then
Result := Result + fTelefone[I];
end; Valeu abraçoO
var
I: integer;
begin
Result := '';
for I := 1 to Length(fTelefone) do
if Pos(fTelefone[I], '0123456789') > 0 then
Result := Result + fTelefone[I];
end; Valeu abraçoO
GOSTEI 0
Marcos Iwazaki
02/02/2010
então é o que eu respondi
em vez de usar "pos" e tal
usar o "StringReplace" que ja faz isso.
em vez de usar "pos" e tal
usar o "StringReplace" que ja faz isso.
GOSTEI 0