将数据从数据集结构移动到另一个结构的更快方法（在 TDatasetProvider 中）

Question

我有一个自定义的 TDatasetProvider，它允许为它提供的任何数据创建新字段。

所以，假设您在原始数据集上获得了以下字段：

• 客户 ID
• 姓名
• 年龄

您需要使用显示位图在 DBGrid 上选择它。好吧，你可以，因为我的 DSP 可以添加 一个名为 Selected 的布尔字段，用于数据集数据。

我现在这样做的方式：

1. 创建 2 个 TClientDataset 对象（Origin 和 Target）
2. 在 Origin 中，我加载了从 InternalGetRecords 方法的参数中获取的数据（我覆盖了它）
3. 在 Target 中，我创建了从 Origin 数据集定义的字段定义，并添加了开发人员在设计时创建的字段定义
4. 在目标上执行 CreateDataset
5. 并且，逐行（和逐字段）将数据从源数据库复制到目标数据集
6. 最后，将 Data 变量作为 InternalGetRecords 的返回值返回。

我真的不知道是否有更优雅（更快）的方法来做到这一点。还有另一种（更快和/或优雅的）方法可以得到这个结果吗？

Answer 1

好像从源数据集加载数据后，可以调用IDSBase.AddField添加更多字段：

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;

我没有彻底测试它，但上面的简单示例按预期工作，我能够像往常一样导航第二个客户端数据集并编辑所有字段的值。

Answer 2

最快的方法是使用CloneCursor。像这样的：

1. 创建 2 个 TClientDataset 对象（Origin 和 Target）
2. 在Origin中，加载InternalGetRecords方法参数获取的数据
3. 在 Target 中，创建从 Origin 数据集定义的字段定义，并添加开发人员在设计时创建的字段定义
4. Target.CloneCursor(Origin); //there are more params than this, but this is the basic idea
5. Target 现在将包含与 Origin 相同数据的新视图，但受 Target 上存在的任何字段、过滤器等的限制。 （如果你没有定义任何字段，它会复制 Origin 的字段。如果你定义了字段，那么它会坚持你给它的。）
6. 从 Target 复制数据，这正是您要查找的内容。

Answer 3

我有一个示例，它动态地将字段添加到 CDS，使用匿名方法计算各个字段，以实现更大的灵活性。在打开 CDS 之前，先添加计算字段，然后再打开它..

这就是你要找的吗？问题不是很清楚...

Answer 4

您可以使用 TClientDataset 的 Data 属性来复制整个数据集、元数据和数据。这应该是将一个 TClientDataset 复制到另一个的最快方法。

见http://docwiki.embarcadero.com/RADStudio/en/Assigning_Data_Directly