如何从数据库加载TTreeView节点并正确恢复其ImageIndex属性

VCL原生的TTreeView.SaveToStream和LoadFromStream方法，默认只会持久化节点的层级结构、节点文本内容，不会存储ImageIndex、SelectedIndex、节点绑定自定义数据等附加属性。你当前存入数据库的Blob流里本身就没有包含ImageIndex信息，自然无法通过原生加载方法恢复这个属性。

废弃直接调用原生Save/LoadToStream的逻辑，自行实现节点的流读写规则，在保存时把每个节点的ImageIndex连同结构、文本一起写入流，加载时按相同规则读取并赋值给对应节点即可。

步骤1：实现自定义的流保存逻辑 #

添加遍历节点写流的方法，替换你原有代码中MyTreeView.SaveToStream(Stream,TEncoding.UTF8);的调用：

procedure WriteTreeToStream(ATreeItems: TTreeNodes; AStream: TStream; AEncoding: TEncoding);
var
  i: Integer;
  curNode: TTreeNode;
  nodeLevel, imgIdx, textLen: Integer;
  textBuf: TBytes;
begin
  for i := 0 to ATreeItems.Count - 1 do
  begin
    curNode := ATreeItems[i];
    nodeLevel := curNode.Level;
    imgIdx := curNode.ImageIndex;
    // 按固定顺序写入：节点层级、ImageIndex、文本字节长度、文本内容
    AStream.WriteBuffer(nodeLevel, SizeOf(Integer));
    AStream.WriteBuffer(imgIdx, SizeOf(Integer));
    textBuf := AEncoding.GetBytes(curNode.Text);
    textLen := Length(textBuf);
    AStream.WriteBuffer(textLen, SizeOf(Integer));
    if textLen > 0 then
      AStream.WriteBuffer(textBuf[0], textLen);
  end;
end;

你原有保存代码中对应位置替换为：

WriteTreeToStream(MyTreeView.Items, Stream, TEncoding.UTF8);

步骤2：实现对应的流加载逻辑 #

添加和写入规则完全匹配的读流方法，替换你原有代码中MyTreeView.LoadFromStream(Stream);的调用：

procedure ReadTreeFromStream(ATreeView: TTreeView; AStream: TStream; AEncoding: TEncoding);
var
  curNode, prevNode: TTreeNode;
  nodeLevel, imgIdx, textLen: Integer;
  textBuf: TBytes;
  nodeText: string;
begin
  ATreeView.Items.BeginUpdate;
  try
    ATreeView.Items.Clear;
    prevNode := nil;
    while AStream.Position < AStream.Size do
    begin
      // 严格按照写入顺序读取字段
      AStream.ReadBuffer(nodeLevel, SizeOf(Integer));
      AStream.ReadBuffer(imgIdx, SizeOf(Integer));
      AStream.ReadBuffer(textLen, SizeOf(Integer));
      SetLength(textBuf, textLen);
      if textLen > 0 then
        AStream.ReadBuffer(textBuf[0], textLen);
      nodeText := AEncoding.GetString(textBuf);

      // 按层级还原节点结构
      if nodeLevel = 0 then
        curNode := ATreeView.Items.AddChild(nil, nodeText)
      else
      begin
        while prevNode.Level <> nodeLevel - 1 do
          prevNode := prevNode.Parent;
        curNode := ATreeView.Items.AddChild(prevNode, nodeText);
      end;
      // 恢复ImageIndex属性
      curNode.ImageIndex := imgIdx;
      prevNode := curNode;
    end;
  finally
    ATreeView.Items.EndUpdate;
  end;
end;

你原有加载代码中对应位置替换为：

ReadTreeFromStream(MyTreeView, Stream, TEncoding.UTF8);

• 之前已经用旧逻辑存入数据库的Blob数据没有存储ImageIndex字段，无法从历史数据中恢复这个属性，需要用新的保存逻辑重新生成存储数据。
• 流的读写顺序、字段类型必须完全对应，否则会出现流读取错位，导致树结构加载异常。
• 如果还需要保存SelectedIndex、StateIndex等其他节点属性，只需要在写流时增加对应字段的写入逻辑，读流时同步读取赋值即可，实现逻辑和ImageIndex完全一致。

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