我正在克隆一个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;
有人有更好的方法吗？