variable que solo guarde cifras de una cadena

[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.