Crear campos TFields en diseño

[jlrbotella]

Hola:

Te he estado revisando el código anterior, y no logro entender la última línea de:

Query1.FieldDefs.UpDate;

Entiendo que lo que hace es actualizar la definición de la lista de campo de la consulta query1, pero cómo se liga el campo que has creado a la definición de los tfielddefs, ya que veo que el campo Tfloatfield lo ligas al dataset query1, pero no se liga al tfieldefs?.

Gracias por tu ayuda,
JL

[jlrbotella]

Hola:

Y por último, ¿cómo puedo modificar la propiedad de displaylabel o displayformat, de un campo previamente creado en modo diseño?.

Más o menos lo haría así, pero no me funciona, porque la propiedad displayname no esta tfielddef.


Código Delphi [-]

var
i : integer;
campo : TFieldDef;
begin
ifxtable1.FieldDefs.Update;
ifxtable1.indexdefs.update;
for i := 0 to ifxtable1.FieldDefs.Count - 1 do
begin
campo := ifxtable1.FieldDefs[i];
campo.displaylabel := 'Mi campo';
ifxtable1.FieldDefs[i].Assign(campo);
end;
ifxtable1.FieldDefs.Update;
ifxtable1.indexdefs.update;
end;

[jlrbotella]

Hola:

Ya he podido modificar las propiedades de los campos de una tabla, usando la siguiente forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i : smallint;
begin
    for i := 0 to ifxtable1.FieldCount-1 do
    begin
        if ifxtable1.Fields[i].ClassName = 'TIntegerField' then
        begin
          (ifxtable1.Fields[i] as TIntegerField).DisplayFormat := '000';
        end;
    end;
end;

Pero no funciona si no obtienes la lista de fields desde el editor de comando, ¿alguién sabe como se hace esto en programación?.

Saludos,
JL

[[Lepe]]

El campo creado, no tienes que agregarlo a FieldDefs, porque al asignar el Dataset de ese campo, delphi ya lo añade.

Para hacer lo que quieres:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i : smallint;
begin
    ifxtable1.FieldDefs.Update; // hacemos que se actualice la lista de campos
    for i := 0 to ifxtable1.FieldCount-1 do
    begin
        if ifxtable1.Fields[i].ClassType is TIntegerField then
        begin
          TIntegerField(ifxtable1.Fields[i]).DisplayFormat := '000';
        end;
    end;
end;

Saludos