如何将数据从TDataSet移动到TClientDataSet？我需要数据的XML表示

Question

如何轻松地将数据从TDataSet移至TClientDataSet？我需要TClientDataSet.XMLData属性中的数据的XML表示。

Answer 1

使用ClientDataSet将TDataSetProvider拖放到表单或数据模块上，将ClientDataSets属性ProviderName设置为TDataSetProvider的名称。将DataSet的{​​{1}}属性设置为其他数据集。打开ClientDataSet。

Answer 2

这是从TClientDataset衍生物的角度来看。

procedure TMyClientDataset.CopyFromDatasetProvider(Dataset: TDataset);
 var DataSetProvider : TDataSetProvider;
begin
  DataSetProvider := nil;
  try
    Close;
    DataSetProvider := TDataSetProvider.Create(nil);
    DatasetProvider.Options := [poNoReset];
    StoreDefs := False;
    DataSetProvider.DataSet := Dataset;
    SetProvider(DataSetProvider);
    Open;
    First;
    SetProvider(nil);
   finally
    if Assigned(DataSetProvider)
     then DataSetProvider.Free;
   end;

end;