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.