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
|