Динамическое создание полей I

Как во время работы приложения динамически создавать поля в наборе данных?

var

I: Integer;

Field: TField;

begin

{ Поля можно добавлять только к неактивному набору данных. }

Table1.Active := False;

{ Распределяем определенные поля если набор данных еще не был активным. }

Table1.FieldDefs.Update;

{ Создаем все поля из определений и добавляем к набору данных. }

for I := 0 to Table1.FieldDefs.Count - 1 do

begin

{ Вот где мы действительно сообщаем набору данных о необходимости создания поля. }

{ Поле "назначается", но нам нужно не это, нам нужна просто ссылка на новое поле. }

Field := Table1.FieldDefs[I].CreateField(Table1);

end;

{ Вот пример того, как вы можете добавить дополнительные, вычисленные поля }

Field := TStringField.Create(Table1);

Field.FieldName := 'Total';

Field.Calculated := True;

Field.DataSet := Table1;

{ Теперь мы можем увидеть наши поля. }

Table1.Active := True;

Надеюсь это поможет.
Marco Romanini (SysOp)
Delphi Tech Support [000416]