Более быстрый способ переноса данных из структуры набора данных в другую (в TDatasetProvider)

Похоже, что после загрузки данных из исходного набора данных вы можете вызвать _ 1_, чтобы добавить дополнительные поля:

uses
  DB, DBCommon, DBClient, DSIntf;

type
  THackClientDataSet = class(TClientDataSet);

procedure EncodeFieldDesc(var FieldDesc: DSFLDDesc;
  const Name: string; DataType: TFieldType; Size, Precision: Integer;
  Calculated: Boolean; Attributes: TFieldAttributes);
begin
  // ... copied from TClientDataSet.EncodeFieldDesc
end;

//...
var
  FldDesc: DSFLDDesc;
begin
  FillChar(FldDesc, SizeOf(FldDesc), 0);
  EncodeFieldDesc(FldDesc, 'SELECTED', ftBoolean, 0, 0, False, []);
  with THackClientDataSet(DataSet) do
    Check(DSBase.AddField(@FldDesc));
  // now you can create a second client dataset and assign it DataSet.Data directly:
  // DataSet2.Data := DataSet.Data;
  // DataSet2 now contains the new field (with empty values in all existing records)
end;

Я не тестировал его тщательно, но простой пример, приведенный выше, работал, как ожидалось, я мог перемещаться по второму набору данных клиента и редактировать значения всех полей как обычно.

Самый быстрый способ - использовать CloneCursor. Что-то вроде этого:

1. Создайте 2 объекта TClientDataset (источник и цель)
2. В Origin загружаем данные, полученные из параметров метода InternalGetRecords
3. В Target создайте fielddefs, определенные из набора данных Origin, и добавьте fielddefs, созданные разработчиком во время разработки.
4. Target.CloneCursor(Origin); //there are more params than this, but this is the basic idea
5. Target теперь будет содержать новое представление тех же данных, что и Origin, но с ограничениями по полям, фильтрам и т. Д., Существующим в Target. (Если вы не определили какие-либо поля, он скопирует поля Origin. Если вы определите поля, он будет соответствовать тому, что вы ему дали.)
6. Скопируйте данные из Target, и это должно быть именно то, что вы ищете.

У меня есть образец, который динамически добавляет поля в CDS с использованием анонимных методов для вычислений отдельных полей для достижения большей гибкости. Перед открытием CDS вы добавляете вычисляемые поля, затем открываете его.

Это то, что вы ищете? Вопрос не очень ясный ...

Вы можете использовать свойство Data TClientDataset, чтобы скопировать весь набор данных, метаданные и данные. Предполагается, что это самый быстрый способ скопировать один TClientDataset в другой.

См. http://docwiki.embarcadero.com/RADStudio/en/Assigning_Data_Directly