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

[eaglet]

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

[yurenjf]

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

[hwz_119]

还是同意楼上

[dickeybird888]

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;