删除TFDMemTable嵌套数据集记录时触发Bookmark未找到错误的原因

错误原因分析 #

这个报错本质是FireDAC动态创建的嵌套子数据集，在内部书签管理上存在初始化不完整的问题。当你通过FieldDefs而非持久化字段创建主数据集时，子数据集的内部元数据（包括书签相关的结构）没有被正确初始化；另外，常规的First/Next循环删除方式，会在删除当前记录后导致数据集内部的书签指针失效，而FireDAC底层操作仍依赖这些书签定位记录，最终触发找不到书签的异常。

可行解决方案 #

1. 倒序循环删除记录 #

避免正向循环删除时的指针偏移问题，从最后一条记录往前删：

var
  ChildDS: TFDMemTable;
begin
  ChildDS := TFDMemTable(FDMemTable1.FieldByName('keywords').AsDataSet);
  if ChildDS.Active then begin
    ChildDS.Last;
    while not ChildDS.Bof do begin
      ChildDS.Delete;
      if not ChildDS.Bof then
        ChildDS.Prior;
    end;
  end;
end;

2. 直接调用DeleteAll清空子数据集 #

如果目的是删除所有子记录，FireDAC提供了更安全的批量删除方法，内部会正确处理书签和数据集状态：

var
  ChildDS: TFDMemTable;
begin
  ChildDS := TFDMemTable(FDMemTable1.FieldByName('keywords').AsDataSet);
  if ChildDS.Active then
    ChildDS.DeleteAll;
end;

3. 显式初始化子数据集结构 #

在操作子数据集前，确保子数据集已被正确激活并初始化内部结构：

var
  ChildDS: TFDMemTable;
begin
  // 先确保主数据集已创建并激活
  if not FDMemTable1.Active then
    FDMemTable1.CreateDataSet;

  ChildDS := TFDMemTable(FDMemTable1.FieldByName('keywords').AsDataSet);
  // 显式打开子数据集（动态创建时可能需要这一步）
  if not ChildDS.Active then
    ChildDS.Open;
  
  // 再执行删除操作
  ChildDS.DeleteAll;
end;

4. 检查ChildDefs的配置完整性 #

确认主数据集的FieldDefs中，ftDataSet类型字段的ChildDefs已正确设置字段属性，比如字段名、类型、大小，避免因元数据缺失导致的内部结构异常：

// 主数据集字段定义示例
FDMemTable1.FieldDefs.Add('ID', ftInteger);
FDMemTable1.FieldDefs.Add('keywords', ftDataSet);
// 子数据集字段定义
with FDMemTable1.FieldDefs['keywords'].ChildDefs do begin
  Add('keyword', ftString, 50);
end;
// 创建数据集
FDMemTable1.CreateDataSet;

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