Adding Calc Fields at runtime
Posted: Wed 16 May 2007 13:11
What is the best way to add fields (Calc fields) at runtime, (ie not using the fields editor in IDE)?
In your case you can use something like this:
Code: Select all
var
f: TField;
i: integer;
...
MyQuery.FieldDefs.Update;
for i := 0 to MyQuery.FieldDefs.Count - 1 do
f := MyQuery.FieldDefs[i].CreateField(MyQuery);
f := TFloatField.Create(MyQuery);
f.FieldName := 'Calc';
f.Calculated := True;
f.DataSet := MyQuery;
MyQuery.Open;