如何从 TVirtualStringTree 中删除所有节点？

【问题标题】：How to remove all nodes from TVirtualStringTree?如何从 TVirtualStringTree 中删除所有节点？
【发布时间】：2012-11-29 01:35:56
【问题描述】：

如何在事件处理程序中移除所有节点，包括 VirtualStringTree 后代，关闭包含 VirtualStringTree 的表单？

【问题讨论】：

【解决方案1】：

要从TVirtualStringTree 或其后代中删除所有节点，请使用Clear 方法（但请注意，Clear 方法是虚拟的，可以被某些后代覆盖。但是，实现者应保持最初的目的这个方法，就是清除树。如果没有，那么在我看来只是一个错误的实现：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  VirtualStringTree1.Clear;
end;

【讨论】：