Ver Mensaje Individual
  #3  
Antiguo 10-06-2004
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Otra alternativa

Yo utilizo una grilla para mostrar el contenido de varias tablas, y que cada campo numerico o fecha me la muestre con formato.

La diferencia con la respuesta anterior es que no necesitas tener creados los TFIELDS en la tabla.

Usa este procedimiento despues de abrir la tabla

Tabla.Open;
SetFormatoGrilla( DBGrid ) //DBGrid es la grilla que muestra los datos...

Código:
Procedure TMaster.SetFormatoGrilla(Sender:TDBGrid);
Var
    Index:Integer;
Begin
     For Index:=0 To (Sender.FieldCount-1) Do
     Begin
           Try
              Case (Sender.Fields[Index].DataType) Of
                   ftSmallint:TSmallIntField(Sender.Fields[Index] ).DisplayFormat :='#0';
                   ftInteger :TIntegerField(Sender.Fields[Index] ).DisplayFormat  :='#0';
                   ftFloat   :TFloatField( Sender.Fields[Index] ).DisplayFormat   :='###,##0.00';
                   ftDate	 :TDatetimeField( Sender.Fields[Index] ).DisplayFormat:='dd/mm/yyyy';
              End;

           Except
                 
           End;
     End;

End;
Saludos de Christian
Concepcion-Chile
Responder Con Cita