Formato en columnas

[gandalf_uy]

El error que me da es este:

[Error] Primer_Nivel.pas(440): Undeclared identifier: 'DisplayFormat'

Directamente no la encuentra como una propiedad del TField.

Plis jelp !!!

[delphi.com.ar]

DisplayFormat es una propiedad de los TNumericField, TDateTimeField, TSQLTimeStampField y TAggregateField ( y sus heredados).... ¿Qué tipo de campo estas tratando de "formatear"?

[gandalf_uy]

El campo que estoy tratando de formatear es un campo del tipo Integer.

Pero si yo hago esto:

Query1.FieldByName( 'codigo').

supuestamente ahi es donde me trae la ventana de ayuda y me despliega propiedades y métodos. En ningun momento me trae DISPLAYFORMAT, si me trae DISPLAYTEXT, DISPLAYNAME, DISPLAYNAME pero no DISPLAYFORMAT. Igual asi lo escribo
Query1.FieldByName( 'codigo').DisplayFormat := '#.##';

y al compilarlo es que me salta el error que te mencioné.


Gracias delphi.com.ar por intentar ayudarme en la solución de este problema...

[delphi.com.ar]

Tendrías que "castearlo", y no tomarlo como un sumple TField:

Código Delphi [-]
if Campo is TIntegerField then
  TIntegerField(Campo).DisplayFormat := '......';

Saludos!

[gandalf_uy]

Lo que no me queda claro en lo que me decis es si al utilizar la funcion FIELDBYNAME supuestamente DELPHI no debe saber de que tipo es el campo de un query hasta el momento de ejecucion. No se como decirle que ese campo es de tipo TNumericField que si he buscado y he encontrado la propiedad DISPLAYFORMAT para este tipo de objeto.

gracias again

[gandalf_uy]

Lo solucioné de la siguiente manera:

Código Delphi [-]
with query1.fieldbyname('codigo') as TNumericField do
      DisplayFormat := ',#0,00';

muchas gracias por la ayuda

[ReiCk_Z]

Esa es una manera de solucionar el problema, la otra es colocando DB en uses:
Ej: Uses DB;
De esta manera puedes usar las líneas de código.
with Query1 do
begin
close;
sql.Clear;
//Código de la consulta.
sql.Open;

(FieldByName('Fecha') as TDateTimeField).DisplayFormat:= 'dd/mm/yyyy';
(FieldByName('Precio') as TNumericField).Displayformat:= '$,0.00';
(FieldByName('Numero') as TNumericField).Displayformat := '#,0.0';
(FieldByName('Porcentaje') as TNumericField).Displayformat := '%,0';
end;