formateo de Dato en Dbgrid

[BPL]

Chicos,
Haber parece que mi error fue no explicarme bien,

estoy trabjando con una SQL (creada en tiempo de ejecucion)
el resultado de esta SQL, la muestro en una dbgrid,
uno de los campos es Espesor.
Ahora lo que necesito es que "solo" cuando el dato es mayor a 0 lo formatee asi "0.0000" de lo contario no muestre nada.

por el minuto lo estoy haciendo con el displayformat despues de abrir la SQL

" (FieldByName('Espesor') AS TFloatField).DisplayFormat := '#.####' "
pero el problema es que me muestra de esta manera .010 y necesita que se muestre completa 0.0100 pero si no hay dato no muestra nada......
por eso yo creo que va mas por el onDrawColumnCell, ya que el formato no es para toda la columna de una vez sino personalizada para cada dato...

espero me hallan logrando entender ahora....

gracias por la atencion prestada...y espero que me siguan ayudando.,...

[Loviedo]

FieldByName('Espesor') AS TFloatField).DisplayFormat := '0.0000';
Me aparece 0,0010.
saludos.

[BPL]

pero cuando no existe dato me saldria 0.0
y es eso lo que precisamente no debe ocurrir,
insisto debe salir blanco nada....

[Loviedo]

Uso Firebird y tengo dos campos numericos (debe,haber), de tal modo que si uno de los campos no contiene nada no almacena 0, sino null. En el dbgrid el campo que tiene almacenado null, no aparece en el otro sí, según displayformat.
Saludos.

[BPL]

no en mi caso no pasa eso,
como antecedente yo trabajao con Delphi 7 + Advantage (motor)

pucha.....

[ecfisa]

Empezado por BPL

no en mi caso no pasa eso,
como antecedente yo trabajao con Delphi 7 + Advantage (motor)

pucha.....

BPL...

No importa si trabajas sobre un TTable o TQuery, en definitiva estamos hablando de un TField.
En el post puse un TTable como ejemplo, pero lo mismo vale para un TQuery.

Repetí los pasos que te puse sobre el TTable en el TQuery y me contás.

Saludos.

[BPL]

Ando super perdida, no entender nada...

mira aqui te muestro como lo escribi.....y mas abajito te explico...

Procedure GrillaDrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column:TColumn; State: TGridDrawState);
begin
if (Grilla.DataSource.DataSet['Espesor'] > 0 ) then begin
Grilla.DataSource.DataSet['Espesor'].OnGetText := qrCotDetalleEspesorGetText ;
end;

Procedure qrDetalleEspesorGetText(Sender:TField; var Text:string; DisplayText:Boolean) ;
Begin
if TField(sender).Value > 0 Then
Text := FormatFloat('0.0000',TField(Sender).Value) ;
end ;


en el evento DrawColumnCell de la Grilla (GrillaDrawColumnCell), aqui es la instancia en donde necesito evaluar el dato, por decir algo aqui se esta dibujando la grilla.
al compilar asi como esta escrito arriba, me reclama por falta de parametros en "qrCotDetalleEspesorGetText", que a simple vista si me faltan...
despues de alguna manera agrego los parametros que faltan, compilo y me sale el sgte msg de error

project sisventas.exe raised exception class EVariantInvalidOpError with message "Invalid variant operation'.

y lo otro que no logro entender, como replico lo que tu me explicas en el post, con respecto hacer click en tabla, add all fields, evento, onGetText, mi tabla o query no existe hasta que se ejecuta el programa....
igual trate de hacer algo pero no di.,....


pucha ojala no te aburras,,, y sigas tratando de explicarme....