Agregar ceros a la izquierda a una variable integer.

[wull]

Hola a todos veran mi problema es el siguiente:
Tengo un programa conectado a una BD, y en esta tengo un campo llamado folio (de tipo numérico, entero largo) el cual es consecutivo; no lo puse autonumerico porque no pude hacer que me apreciera con el siguiente formato '00001' solo me aparecía '1', pensé que me seria más fácil hacerlo directamente en Delphi declarando una variable 'integer' e irla incrementando en 1 cada vez que se agregara un nuevo registro.
La cuestión es que la función para rellenar con ceros a la izquierda no funciona para 'integer' yo queria hacer algo como esto

Código Delphi [-]
variable:=variable+1;

pero siendo variable de tipo 'string' no puedo incrementar su valor.
Alguien tiene alguna idea de como hacerlo, ya sea desde Acces (ya que no pude cambiar el formato desde ahí) o bien en Delphi... espero no causar muchas molestias, gracias de antemano.

[[Caral]]

Hola
El campo integer te dara numeros sin ceros a la izquierda, esto en cualquier BD.
Si lo que quieres es simplemente que el usuario vea estos numeros entonces puedes concatenar los ceros.
Lo unico es que si vas a guardar ese numero entonces tendras que usar la funcion replace.
Me parece algo complicado, yo cambiaria por tipo stringi el campo.
saludos

[MartinS]

Comparto con Caral. Si necesitas ese tipo de numeración usaría el campo en string. Cuando necesites hacer el incremento conviertes el valor a entero a través de la función StrToInt, sumas uno, luego lo pasas a string nuevamente ( IntToStr) y agregas los ceros delante del string resultante.

Saludos

[[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,

[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.