День 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 dobegin{ Вот где мы действительно сообщаем набору данных о необходимости создания поля. }{ Поле "назначается", но нам нужно не это, нам нужна просто ссылка на новое поле. }
Field := Table1.FieldDefs[I].CreateField(Table1);
end;
{ Вот пример того, как вы можете добавить дополнительные, вычисленные поля }
Field := TStringField.Create(Table1);
Field.FieldName := 'Total';
Field.Calculated := True;
Field.DataSet := Table1;
{ Теперь мы можем увидеть наши поля. }
Table1.Active := True;
end;
Статья Динамическое создание полей раздела Базы данных Поля может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.