Agregar Campo Calculado en Runtime - (Avanzado)

[roman]

A ver. A mi me parece que el error no se debe al campo extra sino más bien a que ese campo extra es el único campo que existe.

Recuerden que si no se define ningún campo, ya sea durante el diseño o por código, el dataset genera dinámicamente los campos basándose en la estructura física de la tabla subyacente.

Pero, en el momento en que se agrega un campo, bien sea en diseño o por código, el dataset omite la generación dinámica y el campo o campos agregados son los únicos que existen para el dataset.

Si se abre la tabla antes de añadir el campo extra, pues no sirve de mucho porque no podemos agregar campos mientras la tabla esté abierta, y al cerrarla desaparecen los campos generados dinámicamente.

Lo único que se me ha ocurrido es:

1. Abrir la tabla
2. Copiar la lista de definiciones de campos (FieldDefs) a una lista temporal
3. Cerrar la tabla
4. Agregar todos los campos, basándose en las definiciones que tenemos guardadas.
5. Agregar cualquier campo extra
6. Abrir la tabla.

No lo he probado a fondo pero esto parece funcionar:

Código Delphi [-]
var
  FieldDefs: TFieldDefs;
  FieldDef: TFieldDef;
  Field: TField;
  NewField: TStringField;
  I: Integer;

begin
  Table1.Open;
  Table1.Close;

  FieldDefs := TFieldDefs.Create(Table1);
  FieldDefs.Assign(Table1.FieldDefs);

  for I := 0 to FieldDefs.Count - 1 do
    Field := FieldDefs[i].CreateField(Table1, nil, FieldDefs[i].Name);

  NewField := TStringField.Create(Table1);
  NewField.FieldName := 'Foo';
  NewField.Size := 10;
  NewField.FieldKind := fkCalculated;
  NewField.DataSet := Table1;

  Table1.Open;
end;

// Saludos