URGENTE, como pego somente os NÚMEROS dentro de uma STRING
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...
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
Curtidas 0
Respostas
Sam
29/08/2003
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.
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.
GOSTEI 0