Crear campo en tiempo de ejecucion

[ecfisa]

Hola.

Proba de este modo:

Código Delphi [-]
var
  Field: TField;
  i: Integer;
begin
  Table1.Close;
  for i:=0 to Table1.FieldDefs.Count-1 do
    Field:= Table1.FieldDefs[i].CreateField(Table1);

  Field:= TBooleanField.Create(Table1); 
  with Field do
  begin
    FieldName:= 'NUEVO_CAMPO';
    Calculated:= True;
    DataSet:= Table1;
  end;
  Table1.Open;
end;

Saludos.