[Lazarus-es] valores numericos

[Jesus Reyes]

--- El lun 6-dic-10, Christian Ortiz <xortix en gmail.com> escribió:

> var sMivar:string
>        iNumero:Integer;
> begin
>   iNumero:=1;
>   sMivar :='00' + IntToStr(iNumero);
> //  eso te dara como resultado el string '001'
> 
> end;

Si ya tiene un campo numérico (es decir un TField de un dataset cualquiera) lo mas fácil es usar la propiedad DisplayFormat de ese campo, por ejemplo si DisplayFormat es "00000" tendrá un resultado de con 5 dígitos con tantos ceros a la izquierda como sean necesarios.

Para usar la propiedad DisplayFormat hay 2 formas en tiempo de ejecución y en tiempo de diseño. 

En tiempo de ejecución y después de abrir el Dataset hay que hacer:
MyDset.FieldByName('Campo').DisplayFormat := '00000';

Donde MyDset es el Dataset que se este usando. 

En tiempo de diseño hay que crear "Campos Persistentes" para ello hay que hacer clic con el botón derecho sobre el componente Dataset (en este ejemplo MyDSet) y seleccionar "Editar Campos..." luego usando el botón "+" añadir los campos necesarios para ese proyecto (si no es una versión reciente de Lazarus hacer clic con el botón derecho sobre la ventada de edición de campos y seleccionar "Añadir Campos..."), Una vez añadidos los campos en cuestión, al ir seleccionandolos las propiedades cambian en el Inspector de Objetos, solo es cuestión de cambiar la propiedad DisplayFormat a '00000'

Jesús Reyes A.