如何克隆UserDataSet？

Hexc

我有一个自定义数据集，大概有260个字段，作为模板，程序中需要多个这样的数据集。用TBizField.Create创建生成速度太慢，有没有快速的方法克隆？

wsh

你看下有没有一个 SaveToStream之类的，如果有那把 UserData1.Savexxx，然后 UserData2.Loadxxx。

如果没有，可以试试
   UserData2.BeginUpdate.
   try
     // 创建字段什么的
   
   finally
     UserData2.EndUpdate.
   end;

现在手上没环境，不好确认，你试试

Hexc

好像是不行，DataGrid中的字段没出来。
我的代码：
unit MainForm;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Data;

type
  TMainForm = class(TForm)
    TemplateDate: TUserDataSet;
    Button1: TButton;
    DataSource1: TDataSource;
    DataGrid1: TDataGrid;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
    MyData: TUserDataSet;
  end;

implementation


procedure TMainForm.Button1Click(Sender: TObject);
var
  AStream :TStream;
begin
  MyData:= TUserDataSet.Create(self);
  DataSource1.DataSet := MyData;

  AStream := TMemoryStream.Create;
  try
    TemplateDate.Open;
    TemplateDate.SaveToStream(AStream,TDataPacketformat.dfBinary);
    AStream.Seek(0, TSeekOrigin.soBeginning);
    MyData.LoadFromStream(AStream);
  finally
    aStream.Free;
  end;
end;

end.

Hexc

另外，没有找到TUserDataSet.BeginUpdate这个函数