如何從TVirtualStringTree中刪除所有節點？

Question

如何刪除事件處理程序中的所有節點，包括VirtualStringTree後裔，關閉包含VirtualStringTree的表單？

Answer 1

要刪除一個TVirtualStringTree或其後代的所有節點使用Clear方法（但要注意的是，Clear方法是虛擬的，可以通過一些後裔被覆蓋，但實施者應該保持這種方法，這是初衷清除樹，如果沒有，那麼這在我看來只是一個錯誤的實現：

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