PDA

Ver la Versión Completa : Convetir 1 a 00001


rafadrover
18-08-2003, 14:12:36
Hola amigos, quisiera saber si alguno de ustedes ya tiene implementada una funcion similar a la que busco, quiero convertir un integer a un string rellenado con zeros es decir convertir integer 1 a string 00001, una chorrada, pero si alguien ya tiene una idea me la podria prestar, solamente es por si hay comandos de delphi que ya lo hacen.
Por ejemplo, si una base de datos tiene un campo clave entero y la queremos mostrar como 00001, basta modificar el formato Display con una mascara 00000 i llamando al metodo displaytext, ya esta convertido el 1 a 00001, tocaria haber algo similar pero sin base de datos, como format o strformat.

Gracias por su atencion.

__cadetill
18-08-2003, 15:19:48
FormatFloat('00000', Numero);

Espero te sirva

rafadrover
18-08-2003, 18:28:49
Posteado originalmente por cadetill
FormatFloat('00000', Numero);
Espero te sirva


Esperaba que fuera algo tan simple como eso, pero ya se sabe, algunas veces alguno se pierdo dentro del help buscando strformat, format, etc....
No habia mirado esta poque en mi caso era un integer, cosas de la vida, gracias por la instruccion

Mick
19-08-2003, 20:03:40
Otra posibilidad (que evita la conversion automatica de integer a double que se hace para llamar a formatfloat):

Str:= Format('%5.5d',[numero]);

Salud2 !!!