Динамическое создание полей 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]

Содержание раздела