Añadir field a un TTable tiempo ejecucion

[axak]

Muchas gracias Claro que me ha servido me estaba volviendo loco, ahora entiendo que poner
TVacia1.FieldByName('oficio').AsString:=CBOficio.Text;
es como poner cuando tienes los fields definidos con el editor de fields
Tvaciaoficio.value:=CBoficio.text;
me estaba volviendo tan loco esta linea que haste he puesto la sentencia TVacia.edit; en vez de Tvacia1.post; y cuando he puesto tu linea que ya sabia que funcionaba me he dado cuenta que habia otro error que era ese es que de tanto tocar el codigo ya ni sabia lo que ponia
muchas gracias de verdad.

[genyus00]

FieldDefs.Add('oficio', ftString, 100, false); //eso te falta

[Casimiro Noteví]

Cuatro años después

[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;

[Casimiro Noteví]

Empezado por 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.

Pues tomamos nota y te esperamos dentro de un año aquí

[leg128]

Hay alguna forma de agregar los campos dinamicamente (add all fields) en tiempo de ejecucion? estoy dando vueltas con este tema hace varios dias y no lo consigo. Saludos