variable que solo guarde cifras de una cadena

[edusus]

Hola amigos,
¿Cómo puedo hacer para que de una cadena de texto solo se guarden en una variable las cifras?. Lo explico con un ejemplo: Si una entrada es: '58' o 'tengo 58' o 'Hay 58 solamente'. En cualquiera de los tres casos a mi me interesa '58' para pasarlo a entero y operar con esa cifra. Si convirtiera la entrada a entero en los dos últimos casos me daría error. ¿Cómo puedo hacer?

[marcoszorrilla]

Prueba esto con un Edit:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
s:String;
begin
 For n:=0 to Length(Edit1.Text) do
 begin
   if (Ord(Edit1.text[n]) >=48) and (Ord(Edit1.text[n]) <=57)  then
   S:=S+Edit1.text[n];
 end;

 ShowMessage(s);

end;

Un Saludo.

[dec]

Hola,

Creo que este tipo de entradas son propensas a fallar, pero, en fin, no me quedo con las ganas:

Código Delphi [-]
function DirtyIntToStr
(str: string): string;
var
  pStr: PChar;
begin
  pStr := PChar(str);
  while (pStr^<>#0)do
  begin
    if (pStr^in['0'..'9']) then
      Result := Result + pStr^;
    Inc(pStr);
  end;
end;

Y, casi por el mismo precio:

Código Delphi [-]
function DirtyFloatToStr
 (str: string): string;
var
  pStr: PChar;
begin
  pStr := PChar(str);
  while (pStr^<>#0)do
  begin
    if (pStr^in['0'..'9',DecimalSeparator]) then
      Result := Result + pStr^;
    Inc(pStr);
  end;
end;

Nota: no lo hagan en sus casas; si tienen, escogan otras alternativas.

Segunda nota: lo siento Marcos, no tiene nada que ver con tu respuesta, es que no he podido evitarlo.

[edusus]

Marcos, funciona pero no entiendo el código

[edusus]

Gracias Marcos y gracias David por contestarme.

[marcoszorrilla]

Pues se trata de un simple bucle For para recorrer la cadena de carácter en carácter.

Luego comprobamos que sea un número y si es así lo agregamos a la segunda variable.

El valor ASCII de los números va desde el 0 (48) hasta el 9(57), como la función ORD, devuelve ese valor, de ahí la comprobación si está en este rango de valores, si es así se trata de un número y lo añadimos a la variable.

Código Delphi [-]
S:=S+Edit1.Text[n];

n actúa como subindice para poder recorrer los caracteres de uno en uno.

Creo que así esté fácil de entender.

Un Saludo.

[edusus]

Gracias Marcos, lo que me confundía era lo del 48 y 57 que no me daba cuenta de donde salían.