Delphi ClientDataSet复制记录

数据源记录集：ClientDataSetSource；目标记录集：ClientDataSetCopy

1）复制一条记录。

ClientDataSetCopy.Close;

ClientDataSetCopy.Fields.Clear;

ClientDataSetCopy.FieldDefs.Clear;

//复制字段定义

ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs);

ClientDataSetCopy.CreateDataSet;

ClientDataSetCopy.Edit; //Append;

//复制当前记录行

ClientDataSetCopy.CopyFields(cds1);

2）复制所有记录。

ClientDataSetCopy.Close;

ClientDataSetCopy.Fields.Clear;

ClientDataSetCopy.AppendData(ClientDataSetSource.Data,False);