Как мне определить на лету другое поле подобно команде "Define" в редакторе полей (Fields Editor)? (Калькулируемое поле, другими словами?)
Следующий код создаст полный набор "default" TField для TTable и добавит затем калькулируемое поле:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TField;
i: integer;
begin
Table1.Close;
for i := 0 to Table1.FieldDefs.Count - 1 do
Table1.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,
определенных в режиме редактирования. Одно из новых полей калькулируемое, другое
нет:
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Динамическое создание полей 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!