TVirtualStringTree节点编码函数触发访问违规问题求助

核心问题本质 #

你遇到的RootNod.Index访问违规，本质是**RootNod指向的内存已失效或未被正确初始化**——即便变量显示已赋值，实际是野指针或指向了已被释放的节点内存。

常见触发原因及修复方案 #

1. 根节点获取逻辑错误 #

如果你的RootNod是通过遍历当前节点父节点得到的（比如循环Node.Parent直到Parent为nil），很可能没加nil判断：

• TVirtualStringTree的用户顶层节点，其Parent是树的虚拟根（而非nil），如果遍历逻辑错误，会导致RootNod被赋值为无效指针；另外若遍历过程中未判断CurrentNode是否为nil，也会出现野指针。
• 修复示例（正确的层级编码生成逻辑）：

function GetNodeCode(Node: PVirtualNode): string;
var
  CurrentNode: PVirtualNode;
  CodeParts: TStringList;
begin
  CodeParts := TStringList.Create;
  try
    CurrentNode := Node;
    // 遍历到虚拟根停止（用户节点的顶层父节点是Tree.RootNode）
    while CurrentNode <> nil do
    begin
      // 用节点的兄弟索引+1生成编码（Index从0开始）
      CodeParts.Insert(0, IntToStr(CurrentNode.Index + 1));
      CurrentNode := CurrentNode.Parent;
    end;
    Result := StringReplace(CodeParts.Text, #13#10, '', [rfReplaceAll]);
  finally
    CodeParts.Free;
  end;
end;

2. 函数调用时机过早 #

如果在TVirtualStringTree的初始化阶段（比如OnCreateNode、OnInitChildren事件）调用GetNodeCode，此时节点还未被完全加入树的节点列表，Index属性未完成赋值，甚至节点内存未初始化，访问Index必然触发违规。

• 修复：将编码生成逻辑移到OnGetText事件（这是获取节点文本的标准时机）：

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  NodeData: PYourNodeData;
begin
  if Column = 0 then
  begin
    NodeData := Sender.GetNodeData(Node);
    CellText := GetNodeCode(Node) + ' ' + NodeData.NodeText;
  end;
end;

3. 引用了已释放的节点 #

如果RootNod缓存了已经被DeleteNode释放的节点指针，就会形成野指针，访问其Index属性触发违规。

• 修复：每次调用GetNodeCode时都从传入的Node重新向上遍历，不要缓存外部节点指针；同时确保传入的Node是当前树中有效的节点。

4. 混淆了虚拟根与用户根节点 #

TVirtualStringTree内置一个虚拟根节点（Tree.RootNode），它不属于用户添加的节点列表，Index属性无效。如果误把这个虚拟根当成用户节点的根，访问其Index会直接触发违规。

• 修复：遍历父节点时，当CurrentNode.Parent = Tree.RootNode时，当前节点就是用户的顶层节点，停止遍历即可。

调试验证技巧 #

• 在访问RootNod.Index前强制加nil判断：if RootNod <> nil then ...，如果触发nil分支，回溯根节点的获取逻辑；
• 调试时查看Node的Parent链，确认是否走到了虚拟根节点而非无效内存。

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