Crear campos TFields en diseño

[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