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;
