Campos Persistentes dinamicos

[ecfisa]

como puedo hacer para que los campos de cualquier query se puedan crear dinamicamente

Hola oscarac.

Con un IBQuery podés crear los campos de este modo:

Código Delphi [-]
...
  private
    FDateField: TDateField;
  end;
...
implementation
...
// Agregar campo 
...
begin
  IBQuery1.Close;
  FDateField:= TDateField.Create(Self); // Crear
  FDateField.FieldName := 'FECHA';
  FDateField.Name := 'IBQuery1FECHA';
  FDateField.Index := IBQuery1.FieldCount;
  FDateField.DataSet := IBQuery1;
  IBQuery1.FieldDefs.UpDate; //Actualizar definición de campos
  IBQuery1.Open;
end;

// Eliminar campo 
...
begin
  IBQuery1.Close;
  FDateField.Free;  // Eliminar
  IBQuery1.FieldDefs.Update;  
  IBQuery1.Open;
end;

Supongo que tendría que funcionar igualmente con ADOQuery. Por supuesto tiene que corresponderse el tipo de campo especificado en la creación con el que se cargará de la tabla. Así como también el valor de FieldName.

Saludos.