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

Советы » Записи, индексы, поля, закладки » Динамическое создание полей

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com