Create TFIELD objects runtime: Automatically generate TField objects for a given datase.
No need to use the field editor at designtime! Example:
BoAutoCreateTFields(Table1);
BoCreateTField(Table1, TIntegerField, 'CalculatedTotal', 0, true)
Creates all TFields for dataset and adds a calculated field.
procedure BoAutoCreateTFields( Yourdataset : TDataSet );
var
TmpField : TField;
i : Integer;
begin
Yourdataset.Fielddefs.Update;
for i:= 0 to Pred(YourDataset.FieldDefs.count) do
begin
TmpField := Yourdataset.FindField( Yourdataset.
FieldDefs[i].Name );
if Not assigned(TmpField) then
begin
TmpField := Yourdataset.FieldDefs[i].
CreateField( Yourdataset.Owner );
TmpField.name := YourDataset.name +
Yourdataset.FieldDefs[i].Name;
end;
end;
end;
