TClientDataSet直接赋值Data内存不足及独立副本创建问题

云原生阿岚

2026-6-30

问题原因分析

临时Provider方式触发内存溢出

TempProvider.Data返回的是指向数据数据包的指针，直接赋值给ClientDataSet1.Data时，虽然目标数据集会接管数据包所有权，但这种方式绕开了ClientDataSet内部的内存管理机制。当你修改源数据集的Data属性时，源会重新分配内存生成新数据包，旧数据包可能因引用计数问题无法及时释放；再加上3万条记录的数据包本身占用较大内存，多次操作后就会触发内存不足异常。

CloneCursor触发访问违例

CloneCursor默认会共享源数据集的内部数据存储（KeepData=False为默认参数），目标数据集并不会创建独立的数据副本，只是复用源的内存指针。当源数据集的Data被修改后，原内存区域被释放或覆盖，目标再访问这些无效指针就会触发访问违例。

独立数据副本的实现方案

方案1：使用ClientDataSet.Clone方法（推荐）

TClientDataSet.Clone方法可直接创建完全独立的副本，包含数据、字段定义（含计算字段），两者后续操作互不影响。指定cdsCopyData参数确保数据深拷贝：

// 创建独立副本，保留所有字段定义与数据
ClientDataSet1 := SourceDataSet.Clone(cdsCopyData) as TClientDataSet;

方案2：内存流序列化/反序列化

通过将源数据序列化到内存流，再加载到目标数据集，生成完全隔离的副本，适合复杂数据场景：

var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    SourceDataSet.SaveToStream(MemStream);
    MemStream.Position := 0;
    ClientDataSet1.LoadFromStream(MemStream);
    if not ClientDataSet1.Active then
      ClientDataSet1.Active := True;
  finally
    MemStream.Free;
  end;
end;

方案3：改进Provider使用方式

若必须使用Provider，避免直接操作Data属性，改用LoadFromProvider让ClientDataSet内部处理内存管理：

var
  TempProvider: TDataSetProvider;
begin
  TempProvider := TDataSetProvider.Create(nil);
  try
    TempProvider.DataSet := SourceDataSet;
    ClientDataSet1.LoadFromProvider(TempProvider);
  finally
    TempProvider.Free;
  end;
end;

注意事项

操作前确保源数据集处于打开状态，否则无法正常获取数据。
带计算字段的数据集，副本会继承计算字段定义，但需确保依赖字段在副本中存在，否则计算结果可能异常。
处理大量数据时，可临时关闭不必要的索引、临时字段，降低内存占用。

内容的提问来源于stack exchange，提问作者BlackjackWinner