Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ceros antes de un numero (https://www.clubdelphi.com/foros/showthread.php?t=16321)

MRSAM 23-11-2004 23:30:21

Ceros antes de un numero
 
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 23-11-2004 23:59:48

Prueba esto;
Código:


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


Saludos.

roman 24-11-2004 03:24:08

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


La franja horaria es GMT +2. Ahora son las 13:37:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi