Советы по Delphi
         

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


Как во время работы приложения динамически создавать поля в наборе данных?

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;

Надеюсь это поможет.
Marco Romanini (SysOp)
Delphi Tech Support [000416]


Как мне определить на лету другое поле подобно команде "Define" в редакторе полей (Fields Editor)? (Калькулируемое поле, другими словами?)

Следующий код создаст полный набор 'default' TField для TTable и добавит затем калькулируемое поле:



procedure TForm1.Button1Click(Sender: TObject);varf : TField;i : integer;beginTable1.Close;for i := 0 to Table1.FieldDefs.Count - 1 doTable1.FieldDefs.Items[i].CreateField(Table1);f := TStringField.Create(Table1);f.Name := 'Table1CalcField';f.FieldName := 'CalcField';f.DisplayLabel := 'CalcField';f.Calculated := True;f.DataSet := Table1;Table1.Open;end;

...следующий пример создаст два новых TField в TTable, 'базируясь' на TField, определенных в режиме редактирования. Одно из новых полей калькулируемое, другое нет:

procedure TForm1.Button1Click(Sender: TObject);varf1, f2 : TField;beginTable1.Close;f1 := TStringField.Create(Table1);f1.Name := 'Table1CalcField';f1.FieldName := 'CalcField';f1.DisplayLabel := 'CalcField';f1.Calculated := True;f1.DataSet := Table1;f2 := TFloatField.Create(Table1);f2.Name := 'Table1Population';f2.FieldName := 'Population';f2.DisplayLabel := 'Population';f2.DataSet := Table1;Table1.Open;end;

Eryk [000702]



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