Campos calculados en tiempo de ejecucion

[ecfisa]

Hola oscjae.

No había visto tu mensaje, disculpas por la demora de la respuesta.

El motivo de esas líneas es crear los campos y poder usar por ejemplo:

Código Delphi [-]
procedure TForm1.tu_DataSetCalcFields( DataSet: TDataSet );
begiin
  with DataSet do  
    FieldByName('CalcFld').AsFloat := PI * ( Fields[0].Value + Fields[1].Value );

Pueden quitarse sin ningún problema y hay que referirse a los campos por su nombre:

Código Delphi [-]
procedure TForm1.tu_DataSetCalcFields( DataSet: TDataSet ); 
begin
  with DataSet do  
    FieldByName('CalcFld').AsFloat := PI * ( FieldByName('CAMPO1').Value + FieldByName('CAMPO2').Value );

Saludos