TVirtualStringTree父节点成本求和异常：访问冲突+结果错误求解决方案

问题背景 #

节点数据结构定义如下：

Type
  PMyNodeData = ^TMyNodeData;
  TMyNodeData = record
    Cost:UnicodeString; 
  end;

需求：叶子节点（无子节点）拥有有效Cost值，父节点初始Cost为0，需编写过程让父节点Cost等于所有子节点Cost的总和。原代码运行时出现访问冲突，且求和结果不正确。

问题分析与修复步骤 #

1. 访问冲突的解决 #

• 空指针检查：调用GetNodeData后必须检查返回值是否为nil，未初始化数据的节点会导致直接访问字段触发访问冲突。
• 字符串转浮点数安全处理：使用TryStrToFloat替代StrToFloat，避免因Cost为空、非数字字符串导致的异常崩溃。

2. 求和逻辑修正 #

原代码先累加子节点当前Cost再递归，导致父节点计算的是子节点的初始值而非求和后的值。正确顺序是先递归计算子节点的总和，再用子节点更新后的Cost参与父节点求和。

修正后的完整代码 #

procedure CalculateSum(Node: PVirtualNode);
var
  Data: PMyNodeData;
  ChildNode: PVirtualNode;
  ChildData: PMyNodeData;
  CostSum: Extended;
  ChildCost: Extended;
begin
  // 空节点直接返回
  if not Assigned(Node) then Exit;
  
  Data := VST.GetNodeData(Node);
  // 节点无数据时直接返回
  if not Assigned(Data) then Exit;

  CostSum := 0.0;
  ChildNode := VST.GetFirstChild(Node);
  
  while Assigned(ChildNode) do
  begin
    // 先递归计算子节点的总和，确保子节点Cost已更新
    CalculateSum(ChildNode);
    
    ChildData := VST.GetNodeData(ChildNode);
    if Assigned(ChildData) then
    begin
      // 安全转换字符串到浮点数，转换失败则按0处理
      if TryStrToFloat(ChildData.Cost, ChildCost) then
        CostSum := CostSum + ChildCost;
    end;
    
    ChildNode := VST.GetNextSibling(ChildNode);
  end;

  // 如果是父节点（有子节点）且初始Cost为0，则更新总和
  if VST.HasChildren[Node] then
  begin
    // 检查当前Cost是否为0（安全转换）
    if (TryStrToFloat(Data.Cost, ChildCost) and (ChildCost = 0)) or (Data.Cost = '0') then
      Data.Cost := FloatToStr(CostSum);
  end;
end;

调用说明 #

CalculateSum(VST.RootNode);

额外注意事项 #

• 确保所有节点在创建时都已正确分配TMyNodeData内存（比如在OnCreateNode事件中初始化），避免GetNodeData返回nil。
• 如果需要保留浮点数精度，建议将Cost字段改为Extended类型，避免频繁字符串转浮点数的开销和精度损失。

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