formateo de Dato en Dbgrid

[BPL]

Hola a todos

Trabajo con Delphi 7
tengo una dbgrid y necesito condicionar el formato
Si el dato es > 0, darle el sgte formato "0.0000" de lo contario dejarlo en blanco,
pero nose como llegar a cambiar formato, si he llegado a cambiar el color
pero el formato no he podido....

me imagino que debo trabajar con el evento
dbgriddrawcolumncell....
o estoy equivocada???

muchas gracias de antemano....

[[Caral]]

Hola
Me imagino que en el evento onChange del dataset asociado al campo.
Saludos

[[Chris]]

Para hacer lo que quieres, el objeto TField proporciona el evento OnGetText. Tienes que crear un evento del tipo TFieldGetTextEvent. Luego asignalo a la propiedad del campo al que quieres cambiar el formato después que el dataset contenedor sea abierto. En el evento TFieldGetTextEvent que hayas creado escribirás el código en donde proporcionaras el formato que tendrá tu campo.

Saludos,
Chris

[ecfisa]

Hola BPL.

Coincido con Chris en el evento a capturar.

El código que te pongo, lo podés asignar a cualquier campo numérico:

Código Delphi [-]
procedure TForm.FieldGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if TField(Sender).Value > 0 then
    Text:= FormatFloat('0.0000',TField(Sender).Value);
end;

Podés asignarlo con doble click sobre el evento del campo asociado o mediante código:

Código Delphi [-]
   TuTabla.FieldByName('Puntos').OnGetText:= FieldGetText;
   // o si el campo está declarado:
   TuTablaTuCampo.OnGetText:= FieldGetText;

Saludos.

[BPL]

gracias ChHris y Ecfisa, ver el codigo me sirvio un poco mas, pero igual algo debo estar haciendo malo, porque no logro compilar, me reclama que faltan parametros, y a simple vista si me faltan, pero no logro llegar a lo correcto.

me podrian ayudad un poquito mas.....

[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.