如何从 TVirtualStringTree 中删除所有节点

Question

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

Answer 1

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

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