无法给VirtualNode的LastChild属性赋值nil？求解决方案

问题根源 #

你手动修改VirtualTree.Types中TVirtualNode属性添加write访问器仍报错，核心原因有两点：

1. 修改后的单元未重新编译，编译器仍沿用旧的只读属性定义；
2. VirtualTree的设计逻辑禁止外部直接修改内部节点关联属性——fLastChild、fNextSibling这类字段由控件自身的节点管理机制维护，直接赋值会破坏内部状态一致性，控件本身也通过封装限制了外部操作。

正确解决方案 #

不要修改控件内部代码，采用以下两种合规方式处理：

方案1：使用控件自带的DeleteChildren方法（推荐） #

VirtualTree原生提供了删除节点所有子节点的方法，会自动维护节点关联、计数等内部状态，无需手动操作：

procedure TfrmMonitor.DeleteChildren(aNode: PVirtualNode; aUpdateAlgos: Boolean = True);
begin
  if Assigned(aNode) and (aNode.ChildCount > 0) then
  begin
    VirtualTree.DeleteChildren(aNode);
    if aUpdateAlgos then
    begin
      VirtualTree.UpdateTree;
      // 此处添加你的自定义更新逻辑
    end;
  end;
end;

方案2：直接操作节点内部字段（仅特殊场景使用） #

如果因需求必须手动处理节点关联，可跳过属性封装，直接访问PVirtualNode的内部字段（PVirtualNode是指针类型，可直接访问私有字段）：

procedure TfrmMonitor.DeleteChildren(aNode: PVirtualNode; aUpdateAlgos: Boolean = True);
var
  Run: PVirtualNode;
  Mark: PVirtualNode;
begin
  if Assigned(aNode) and (aNode.ChildCount > 0) then
  begin
    Run := aNode.LastChild;
    while Assigned(Run) do
    begin
      Mark := Run;
      Run := Run.fPrevSibling;
      if Assigned(Run) then
        Run.fNextSibling := nil;
      DeleteNode(Mark, aUpdateAlgos);
    end;
    aNode.fFirstChild := nil;
    aNode.fLastChild := nil;
    aNode.ChildCount := 0;
    if aUpdateAlgos then
      VirtualTree.UpdateTree;
  end;
end;

警告：这种方式绕过了VirtualTree的内部校验，可能引发未知异常或逻辑错误，非必要不要使用。

重要提示 #

VirtualTree的节点关联关系是控件内部状态的核心，所有节点操作都应通过控件公开API完成（如DeleteNode、AddChild、DeleteChildren），这些方法会自动处理节点关联、计数更新等逻辑，确保控件状态一致。

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