delphi - 有没有更好的方法将所有DataSet字段及其属性复制到另一个DataSet？

我正在克隆一个TClientDataSet，我想将所有字段复制到该克隆(这是一个新的DataSet)中，我知道我可以遍历Fields并复制信息，或者创建我的类的2个实例并只复制光标，但是有更好的方法吗？诸如创建新的数据集并分配字段信息之类的东西？

编辑:

以下类帮助器方法适用于我:

procedure TDataSetHelper.CopyFieldDefs(Source: TDataSet);
var
  Field, NewField: TField;
  FieldDef: TFieldDef;
begin
  for Field in Source.Fields do
  begin
    FieldDef := FieldDefs.AddFieldDef;
    FieldDef.DataType := Field.DataType;
    FieldDef.Size := Field.Size;
    FieldDef.Name := Field.FieldName;

    NewField := FieldDef.CreateField(Self);
    NewField.Visible := Field.Visible;
    NewField.DisplayLabel := Field.DisplayLabel;
    NewField.DisplayWidth := Field.DisplayWidth;
    NewField.EditMask := Field.EditMask;

   if IsPublishedProp(Field, 'currency')  then
     SetPropValue(NewField, 'currency', GetPropValue(Field, 'currency'));

  end;
end;

有人有更好的方法吗？

最佳答案

您是在寻找一种更美观的方式还是一种更快的方式？

如果是前者，则创建自己的隐藏循环的类。

如果是后者，甚至不用担心。一个非常明智的编码器曾经对我说过:磁盘访问成本；网络访问费用；屏幕访问费用；其他一切都是免费的。

不要将源代码的大小与执行时间混淆。与数据库连接的初始握手相比，无法检测到通过内存循环一千次并复制位。

干杯