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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Marco Romanini (SysOp) Delphi Tech Support

День 1-й. Бог создал свет.

День 2-й. Бог создал юзера.

День 3-й. Бог создал Дос.

День 4-й. Бог создал Windows 3.11

День 5-й. Бог создал Windows

День 6-й. Бог создал женщину-юзверя.

День 7-й. Бог не в силах был что-то сделать.

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;

end;

{/codecitation}

Добавить комментарий