Concluir esta função

02/02/2010

1

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! 
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

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

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

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira