formateo de Dato en Dbgrid

[ecfisa]

Hola de nuevo.

No especificás mcuho hacerca del error..., pero será sobre el evento OnGetText no ?

De ahora en más me voy a referir al campo involucrado como: tuCampo.

1) Hacé doble click sobre la tabla involucrada, eso te abre el editor de campos.
2) Hacé click con botón derecho del mouse y elegí: Add all fields de la ventana emergente.
3) Hacé click sobre tuCampo.
4) En el Object Inspector hacé click sobre la pestaña Events.
5) Hacé doble click sobre el evento OnGetText.
6) Te va a haber creado el esqueleto del procedimiento y dejado en el editor de Delphi de este modo:

Código Delphi [-]
procedure TForm1.Table1TuCampoGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin

end;

Dentro de él, pegá el siguiente código:

Código Delphi [-]
  if TField(Sender).Value > 0 then
    Text:= FormatFloat('0.0000',TField(Sender).Value);

Saludos.