Tirar Simbolos de uma string...

Delphi

04/04/2003

Fala bando!!!

como eu faço para tirar as os simbolos de dentro de uma string e deixar soh
os numeros?
tipo: tenho a uma string com o valor 3213-321/6546(3) e quero que fique soh
321332165463 !

Soh tem um detalhe... quero fazer isto em um campo de um bd que pode ter os
simbolis em qquer posição, então tem que ser um jeito que funcione para
qquer string. tipo... tanto se o valor for 3213-321/6546(3) quanto se o
valor for 32/13321-654-63, o valor retornado deverá ser: 321332165463

Como eu posso fazer?

Aquele Abraço!!!
Tiago Farinon


Tiago Farinon

Tiago Farinon

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

04/04/2003

Function NumericOnly( cString: String ): String;
var nX: Integer;// Laço de leitura da string
Begin
  Result := ´´;
  For nX := 1 To Length( cString ) do
  If cString[ nX ] in [´0´..´9´] Then
  result := result + cString[ nX ];
End;



GOSTEI 0
Tiago Farinon

Tiago Farinon

04/04/2003

Valeu gente!!!

Vou fazer!


GOSTEI 0
POSTAR