Função para remover caracteres e deixar apenas números em uma string (funcionando no delphi 2010)

[V¡®u§ 849]

function SoNumeros(Const Texto:String):String;

//

// Remove caracteres de uma string deixando apenas numeros

//

var

I: integer;

S: string;

begin

S := '';

for I := 1 To Length(Texto) Do

begin

if (Texto in ['0'..'9']) then

begin

S := S + Copy(Texto, I, 1);

end;

end;

result := S;

end;