如何将dbTreelist保存为XML文件？递归实现遇阻求助

核心问题与思路 #

你的递归实现失败原因在于没有正确关联XML节点的父子层级——每次递归都把新节点挂在前序节点上，而非对应父节点的XML节点下。正确的做法是：递归过程中传递「当前节点对应的父XML节点」，将当前节点创建为该父节点的子节点，再递归处理当前节点的子节点。

具体实现（以Delphi的IXMLNode为例） #

假设你的dbTreelist节点包含以下核心属性：

• ID: 节点唯一标识
• ParentID: 父节点ID（根节点ParentID为0/空值）
• NodeText: 节点显示文本

1. 预构建节点映射字典
   先把所有dbTreelist节点存入字典，方便快速通过ParentID查找父节点：

var
  NodeDict: TDictionary<Integer, TdbTreeListItem>;
  I: Integer;
begin
  NodeDict := TDictionary<Integer, TdbTreeListItem>.Create;
  try
    for I := 0 to dbTreelist.Items.Count - 1 do
      NodeDict.Add(dbTreelist.Items[I].ID, dbTreelist.Items[I]);
    
    // 启动XML树形结构构建
    BuildXmlTree(NodeDict, RootXmlNode);
  finally
    NodeDict.Free;
  end;
end;

2. 递归构建XML层级
   编写递归函数，传入父XML节点和当前要处理的dbTree节点：

procedure BuildXmlTree(NodeDict: TDictionary<Integer, TdbTreeListItem>; ParentXmlNode: IXMLNode);
var
  CurrentDbNode: TdbTreeListItem;
  CurrentXmlNode: IXMLNode;
  ChildDbNodes: TList<TdbTreeListItem>;
begin
  // 获取当前父Db节点对应的所有子节点
  ChildDbNodes := GetChildNodes(NodeDict, ParentXmlNode.Attributes['ID']);
  try
    for CurrentDbNode in ChildDbNodes do
    begin
      // 创建当前节点对应的XML节点
      CurrentXmlNode := ParentXmlNode.AddChild('TreeNode');
      CurrentXmlNode.Attributes['ID'] := CurrentDbNode.ID;
      CurrentXmlNode.Attributes['Text'] := CurrentDbNode.NodeText;
      
      // 递归处理子节点，传入当前XML节点作为父节点
      BuildXmlTree(NodeDict, CurrentXmlNode);
    end;
  finally
    ChildDbNodes.Free;
  end;
end;

3. 辅助函数：筛选子节点
   根据父节点ID筛选出所有子节点：

function GetChildNodes(NodeDict: TDictionary<Integer, TdbTreeListItem>; ParentID: Integer): TList<TdbTreeListItem>;
var
  DbNode: TdbTreeListItem;
begin
  Result := TList<TdbTreeListItem>.Create;
  for DbNode in NodeDict.Values do
  begin
    if DbNode.ParentID = ParentID then
      Result.Add(DbNode);
  end;
end;

4. 初始化根节点并保存XML
   创建XML文档根节点，找到Db列表的根节点后启动递归，最终保存文件：

var
  XmlDoc: TXMLDocument;
  RootXmlNode: IXMLNode;
  RootDbNode: TdbTreeListItem;
begin
  XmlDoc := TXMLDocument.Create(nil);
  try
    XmlDoc.Options := XmlDoc.Options + [doNodeAutoIndent];
    RootXmlNode := XmlDoc.CreateNode('TreeRoot');
    XmlDoc.Root := RootXmlNode;

    // 找到所有根Db节点（ParentID=0）
    for RootDbNode in NodeDict.Values do
    begin
      if RootDbNode.ParentID = 0 then
      begin
        RootXmlNode.Attributes['ID'] := RootDbNode.ID;
        RootXmlNode.Attributes['Text'] := RootDbNode.NodeText;
        BuildXmlTree(NodeDict, RootXmlNode);
      end;
    end;

    // 保存XML到文件
    XmlDoc.SaveToFile('TreeStructure.xml');
  finally
    XmlDoc.Free;
  end;
end;

关键注意事项 #

• 递归时必须传递当前节点对应的父XML节点，而非全局根节点或前序节点；
• 用字典存储Db节点是为了避免重复遍历列表，提升查找效率；
• 确保XML节点的ID与Db节点的ID一一对应，避免父子关联错误。

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