DisplayFormat en tiempo de ejecución?

[jachguate]

Si nada funciona, valete del evento OnGetText del field para darle formato.

Hasta luego.

[mguixot]

Gracias por tu interes, Jachguate. Podrias pasarme algún ejemplo de como capturar ese evento, es que al implementarlo en tiempo de ejecución, no tengo muy claro como hacerlo.

Saludos y gracias

[jachguate]

Debes tener un método en la forma con los parámetros necesarios, de acuerdo al tipo del evento.

En el caso de OnGetText, que es del tipo TFieldGetTextEvent, encontramos fácilmente en la ayuda su declaración, que es como va:

Código Delphi [-]
type TFieldGetTextEvent = procedure(Sender: TField; var Text: string; DisplayText: Boolean) of object;
property OnGetText: TFieldGetTextEvent;

Por lo tanto declaras un método, llamemolo FormatearFloatField.

Lo declaras asi:

Código Delphi [-]
type 

TForm1 = class(TForm)
  ..
private
  Procedure FormatearFloatField(Sender: TField; var Text: string; 
                  DisplayText: Boolean);
..

Lo codificas en la sección de implementation y en tiempo de ejecución podes asignarlo "dinámicamente" a cualquier field.

Código Delphi [-]
  // si estas en el mismo formulario
  query1.FieldByName('Total').OnGetText := FormatearFloatField;  
  // si lo tuvieras en un modulo de datos, por ejemplo...
  query1.FieldByName('Total').OnGetText := ModuloDatos.FormatearFloatField;  
  query1.FieldByName('Total').OnGetText := FormatearFloatField;

Hasta luego.

[mguixot]

Genial!
El ejemplo me ha servido de mucha ayuda. Ya he conseguido implementarlo.

Muchas Gracias.