Añadir field a un TTable tiempo ejecucion

[genyus00]

jejeje. siempre hay alguien en busca una respuesta y estas son las primeras en salir y sin concluir. Pero para que veas hay un tema que cada año alguien le agrega algo y creo llevan 10 años en eso. reviven el link cada año.

Código Delphi [-]
//agregar campo en tiempo de ejecución
procedure TForm1.Button2Click(Sender: TObject);
var
  T: TStringField;
begin
  Query1.Close;
  T := TStringField.Create(Self);
  T.FieldName := 'CO_NAME';
  T.Name := Query1.Name + T.FieldName;
  T.Index := Query1.FieldCount;
  T.DataSet := Query1;
  Query1.FieldDefs.UpDate;
  Query1.Open;
end;

//Eliminar campo en tiempo de ejecución
procedure TForm1.Button1Click(Sender: TObject);
var
  TC: TComponent;
begin
  TC := FindComponent('Query1CO_NAME');
  if not (TC = nil) then begin
    Query1.Close;
    TC.Free;
    Query1.Open;
  end;
end;