Agregar ceros a la izquierda a una variable integer.

[wull]

Empezado por Delphius

Repasando matemáticas de primer grado:
01 = 1
002 = 2
Por tanto no interesa la cantidad de ceros que pretendas poner a la izquierda. ¡NO VALEN NADA!

En todo caso, a efectos de visualización puedes emplear la propiedad DisplayFormat para indicarle el formato. Otra posibilidad es la de aprovechar el método GetText y SetText del campo en cuestión y darle el formato indicado. Entonces en la base de datos se almacena en forma entera y se deja, exclusivamente, a modo de presentación mostrarlos con los ceros.

La otra posibilidad es cambiar el tipo del campo en la base de datos por un alfanumérico de modo que en vez de almacenar un número se tiene una cadena "0....0x..x". Esto va a requerir que se hagan conversiones de string a número, y viceversa constantemente. Si este campo es una clave primaria o una foránea me parece una pésima elección esta alternativa.

Saludos,

Ja jaja si ya lo se , no es tanto por la cantidad sino por el formato, ya que al ser un folio pues generalmente usan los ceros a la izquierda; por eso necesito que se vea de esa forma; no se como funciona la propiedad DisplayFormat me podrias orientar como usarla... gracias de antemano.

[olbeup]

Para poner ceros a la izquierda utiliza el FormatFloat.

Código Delphi [-]
...
var
  Folio: String;
begin
  Folio := FormatFloat('0000', 1);
end;

Folio seria ahora "0001"

Un saludo

[ecfisa]

Empezado por wull

...no se como funciona la propiedad DisplayFormat me podrias orientar como usarla...

Hola wull.

Código Delphi [-]
 TIntegerField(DataSet.FieldByName('NOMBRE_DEL_CAMPO')).DisplayFormat := '00000';

Saludos.

[wull]

Bueno como todo indicaba que seria más facil trabajar con un tipo String pues he optado por usarlo... gracias a todos por sus consejos.

[roman]

Una muy mala idea, si me lo permites. Claro, todo depende del uso que le des a la información, pero, en general, si una información es numérica, el motor será más eficiente si tal información se almacena como número y no como cadena.

Los ceros iniciales sonuna cuestión de formato que puede lograse fácilmente en la aplicación cliente, e incluso, en algunos gestores, desde el servidor.

// Saludos

[wull]

Empezado por roman

Los ceros iniciales sonuna cuestión de formato que puede lograse fácilmente en la aplicación cliente, e incluso, en algunos gestores, desde el servidor.

// Saludos

La idea de usar un campo de tipo String, fue porque no hallaba otra solución. Esto que mencionas no tengo ni idea de como hacerlo, me podrías orientar al respecto. Perdón por preguntar hasta ahora, pero como te habrás dado cuenta he estado preguntando muchas cosas más en el foro. Te agredecere mucho cualquier ayuda.

[roman]

Por ejemplo, un campo entero se traducir´en un TIntegerField en Delphi, el cual deriva de un TNumericField, y éste tiene la propiedad DisplayFormat que puedes poner, por ejemplo, en '00000' para que los números aparezcan con relleno a la izquierda de hasta cinco ceros.

O bien, por ejemplo, en MySQL puedes usarla función LPAD, para que al momento de hacer la consulta SQL, se rellene el dato con ceros.

// Saludos

[ecfisa]

Empezado por wull

La idea de usar un campo de tipo String, fue porque no hallaba otra solución.

Pero... ¿ Habías probado las sugerencias que partían del mensaje #6 ?

Saludos.

[roman]

Evientemente no Y yo ya ni me acordaba

// Saludos

[wull]

Empezado por ecfisa

Pero... ¿ Habías probado las sugerencias que partían del mensaje #6 ?

Saludos.

Si ya he probado las recomendaciones que me han dado, es solo que me sorprendio el mensaje de roman... de hecho lo estoy haciendo de la manera en que me sugeriste, como Display Format. Es solo que como han mencionado solo sirve para visualización. Por cierto la manera en que lo estoy haciendo es la siguiente:
Como estoy usando Acces, elegí un campo de tipo Auto numerico, que en delphi es como integer... y ya en código en delphi le agrego la propiedad DisplayFormat; esto funciona bien excepto en el reporte en donde se muestra solo un número (por ejemplo 1 en lugar de 0001) pero es algo en lo que ya estoy trabajando para ver como solucionar.