Foros Club Delphi - Función ghRightInt

Devuelve el número entero que aparece representado al final de una cadena de caracteres.

Unidad

GHFRTL

Declaración

Código Delphi [-]  { Right Integer }
  Function ghRightInt (Const Value :String;
    Const MaxLength :Integer = MaxInt) :Integer;

Descripción

La función ghRightInt toma una cadena de caracteres, busca en su extremo derecho una serie de dígitos decimales y convierte éstos a un valor de tipo Integer. El parámetro MaxLength indica la cantidad máxima de dígitos a considerar.

Parámetros

Value — Una cadena de caracteres que exprese un número entero en su parte final. Si es una cadena vacía o no termina en dígito decimal, el resultado será 0.

MaxLength — Sirve para limitar la cantidad de caracteres numéricos que serán tomados en cuenta, contando de derecha a izquierda. Este parámetro puede omitirse, en cuyo caso se consideran todos los dígitos decimales que aparezcan juntos al final de la cadena.

Nota: Si el valor representado por los dígitos extraídos es mayor a 2147483647 (máximo del tipo Integer), el resultado será 0.

Nota: Ya que solamente se toman en cuenta los caracteres que son dígitos decimales, esta función nunca regresa un valor negativo aun si el grupo de dígitos lleva delante el signo "-".

Ejemplos

Código Delphi [-]  I := ghRightInt ('Fahrenheit 9/11');
  // I = 11

  I := ghRightInt ('District 9');
  // I = 9

  I := ghRightInt ('Cell 211');
  // I = 211

  I := ghRightInt ('2012');
  // I = 2012

  I := ghRightInt ('2012', 3);
  // I = 12

  I := ghRightInt ('Test2147483647');
  // I = 2147483647

  I := ghRightInt ('Test2147483648');
  // I = 0

  I := ghRightInt ('Test2147483648', 9);
  // I = 147483648

  I := ghRightInt ('1983-2002');
  // I = 2002

  I := ghRightInt ('Test');
  // I = 0

  I := ghRightInt ('');
  // I = 0