TUniQuery+FieldsEditor

[mediv]

Всем привет, ситуация такова :
в наборе данных я использую мастер FieldsEditor для того, чтоб добавить свои поля(2 штуки булеан), на событии OnCalcFields соответственно ставлю им нужные мне значения, такой способ добавления полей давно пользую, проблем не возникало.
Задача : назначить FieldsEditor не в DesignTime с помощью мастера, а в RunTime кодом, нужно для того, чтобы правильно определились типы полей, у Oracle это одни типы данных, у FB - другие.
Конечно я могу все обрулить с помощью VirtualTable, но хотелось бы не максимально не трогать код.

Идеи, примеры кода, хоть что нибудь...

Спасибо.

[AndreyZ]

Здравствуйте,

Вы можете использовать следующий код:

Код: Выделить всё

var
  i: integer;
  fd: TBooleanField;
begin
  UniQuery1.SQL.Text := 'select * from dept';
  UniQuery1.FieldDefs.Update;
  for i := 0 to UniQuery1.FieldDefs.Count - 1 do
    UniQuery1.FieldDefs[i].CreateField(UniQuery1);
  fd := TBooleanField.Create(UniQuery1);
  fd.FieldName := 'clc1';
  fd.FieldKind := fkCalculated;
  fd.DataSet := UniQuery1;
  fd := TBooleanField.Create(UniQuery1);
  fd.FieldName := 'clc2';
  fd.FieldKind := fkCalculated;
  fd.DataSet := UniQuery1;
  UniQuery1.Open;
end;

[mediv]

Спасибо.

[AndreyZ]

Пожалуйста.