delphi - 是否有更好的方法将所有数据集字段及其属性复制到另一个数据集？

Question

我正在克隆一个 TClientDataSet，我想将所有字段复制到克隆(这是一个新的数据集)，我知道我可以循环遍历字段并复制信息，或者创建我的类的 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;

谁有更好的方法来做到这一点？

Answer 1

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

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

当然，这假设您为 ds1 创建了 FieldDef。