Ceros antes de un numero

[MRSAM]

Amigos de delphi, les mando un saludo y estoy con una duda espero me puedan hechar la mano, estoy haciendo una aplicacion que necesito que los numero que yo ingrese se le agreguen ceros antes para llenar cierto tamaño de caracteres... es decir...

10 ----- 00010
100 ----- 00100

etc. Alguien sabe como hacer esto grax

[cahp]

Prueba esto;

numero := DupeString('0',NumCaracteresTotales-Length(Numero) ) + numero;

Saludos.

[roman]

Otra forma:

Cadena := Format('%0.8d', [Numero]);

antepone ceros hasta completar 8 caracteres (puedes sustituir 8 por cualquier otro valor.

De cualquier forma lo que describes no corresponde con los ejemplos, ¿qué hacen ese 10 y 100 al principio?

// Saludos