如何通过程序给TQuery增加一个CalcFields

Question

目前一般的方法是双击TQuery控件，new field 然后选Calculate
我要问的是如何在程序运行时动态增加一个 Calculate 字段

Answer 1

使用SQL语句select 单价,数量,单价*数量 as 货款 from 表名

Answer 2

建立一个TStringField的字段,如:
var
  sf:TStringField;
begin
  sf.FieldKind = fkCalculated;
  Calculated = True;
  yourquery.Field.Add(sf);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  T: TStringField;
begin
  query1.Close;
  T := TStringField.Create(Self);
  T.FieldName := 'SS';
  T.Name := 'cdtable' + T.FieldName;
  T.FieldKind:= fkCalculated;
  T.Index := ('计算字段的位置');
  T.DataSet := query1;
  query1.FieldDefs.UpDate;
  query1.Open;
end;