F�rum Concluir esta fun��o #15038

02/02/2010

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!

Thiago Santana

Curtir t�pico

+ 0

Responder

Posts

02/02/2010

Marcos Iwazaki

pode usar uma outra fun��o p fazer isso

fTelefone := StringReplace(fTelefone,'-',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,'(',[rfReplaceAll]);
fTelefone := StringReplace(fTelefone,')',[rfReplaceAll]);

Responder

Gostei + 0

02/02/2010

Thiago Santana

Socram valeu pela ajuda, mas Qual seria a fun��o que vc mim indicaria para fazer essa remova��o desses caracteres indesejaveis?

Responder

Gostei + 0

02/02/2010

Thiago Santana

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

Responder

Gostei + 0

02/02/2010

Marcos Iwazaki

ent�o � o que eu respondi
em vez de usar "pos" e tal

usar o "StringReplace" que ja faz isso.

Responder

Gostei + 0