Crear Campos Calculados en una Dataset

[ecfisa]

Hola GerTorresM.

No decís con que base de datos estás trabajando, por lo que lamento no poder ser más específico.

Te escribo un ejemplo simple con BDE.

var
  tbCalc: TStringField;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  tbCalc:= TStringField.Create(Self);
  with tbCalc do
  begin
    Name := 'tbCalc';
    FieldKind:= fkCalculated;
    FieldName:= 'tbCalc';
    DisplayLabel:= 'CALCULADO';
    Size := 30;
    DataSet := Table1;
  end;
  Table1.OnCalcFields:= Table1CalcFields;
  Table1.Open;
end;

Saludos.