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

Question

我正在克隆一个TClientDataSet,我想将所有字段复制到克隆(这是一个新的DataSet),我知道我可以循环遍历Fields并复制信息,或者创建我的类的2个实例,然后克隆光标,但有更好的方法吗？像创建一个新的DataSet并分配字段信息？

编辑:

以下类助手方法适用于我:

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;

有人有更好的方法吗？

Answer 1

如果您只想复制字段定义,可以执行以下操作:

ds2.FieldDefs.Assign(ds1.FieldDefs);
ds2.CreateDataSet;
ds2.Open;

当然,这假设您为ds1创建了FieldDefs.

Answer 2

您是否正在寻找一种更美观的方式或更快的方式？

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

如果是后者，甚至不用担心。一位非常明智的程序员曾经对我说过：磁盘访问成本；网络接入费用；也许屏幕访问成本；其他一切都是免费的。

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

干杯