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

Question

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

Answer 1

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

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