URGENTE, como pego somente os N�MEROS dentro de uma STRING

Question

Como fa�o pra pegar somente os n�meros dentro de uma STRING ??

Ex:

A : String;
B : Integer;
begin
A := �100JANELAS�;
B := ??? A
end;

Gostaria de jogar na vari�vel B somente o N�mero 100 da Vari�vel A, lembrando que a vari�vel A poder� receber qualquer numera��o, ex:

A = 1000TELHAS;
A = 5PORTAS;
A = 253012PORCAS;
etc...

Sam · Answer

function SoNumeros(sTexto: String): String;
var
iCont: Short;
sTemp: String;
begin
sTemp := ��;
for iCont := 1 to Length(sTexto) do
if (sTexto[iCont] in [�0�..�9�]) then
AppendStr(sTemp, sTexto[iCont]);
Result := sTemp;
end;

Achei esta fun��o no site http://www.geocities.com/SiliconValley/Peaks/4093/programa.htm de Rodrigo Hjort.

F�rum URGENTE, como pego somente os N�MEROS dentro de uma STRING #178398