Cómo agregar ceros iniciales a un número (formato Delphi)

Las diferentes aplicaciones requieren valores específicos para ajustarse a los paradigmas estructurales. Por ejemplo, los números del Seguro Social siempre tienen nueve dígitos. Algunos informes requieren que los números se muestren con una cantidad fija de caracteres. Los números de secuencia, por ejemplo, generalmente comienzan con 1 y se incrementan sin fin, por lo que se muestran con ceros a la izquierda para presentar un atractivo visual.

Como un Programador de Delphi, su enfoque para agregar un número con ceros a la izquierda depende del caso de uso específico para ese valor. Simplemente puede optar por rellenar un valor de visualización, o puede convertir un número en una cadena para almacenarlo en una base de datos.

Use una función sencilla para cambiar cómo se muestra su número. Utilizar formato para realizar la conversión proporcionando un valor para longitud (la longitud total de la salida final) y el número que desea rellenar:

str: = Formato ('%. * d, [longitud, número])

Para rellenar el número 7 con dos ceros a la izquierda, inserte esos valores en el código:

str: = Formato ('%. * d, [3, 7]);

El resultado es 007 con el valor devuelto como una cadena.

Use una función de relleno para agregar ceros a la izquierda (o cualquier otro carácter) cada vez que lo necesite dentro de su script. Para convertir valores que ya son enteros, use:

función LeftPad (valor: entero; longitud: entero = 8; pad: char = '0'): cadena; sobrecargar; 

empezar

 resultado: = RightStr (StringOfChar (pad, longitud) + IntToStr (valor), longitud); 

final;

Si el valor a convertir ya es una cadena, use:

función LeftPad (valor: cadena; longitud: entero = 8; pad: char = '0'): cadena; sobrecargar;

empezar

 resultado: = RightStr (StringOfChar (pad, length) + value, length);

final;

Este enfoque funciona con Delphi 6 y ediciones posteriores. Ambos bloques de código tienen por defecto un carácter de relleno de 0 con una longitud de siete caracteres devueltos; esos valores pueden modificarse para satisfacer sus necesidades.

Cuando se llama LeftPad, devuelve valores de acuerdo con el paradigma especificado. Por ejemplo, si establece un valor entero en 1234, llamando a LeftPad:

i: = 1234;
r: = LeftPad (i);

devolverá un valor de cadena de 0001234.