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