Виртуальный цикл TreeView

Question

Я хотел бы пройти ВСЕ корни VirtualTreeView и удалить их.

Я не хочу его очищать.

Я получаю нарушение прав доступа с помощью этого кода:

var 
Node : PVirtualNode; 
begin 
if VirtualStringTree1.GetFirst = NIL then exit; 
Node := NIL; 
repeat 
    if Node = NIL then 
    Node := VirtualStringTree1.GetLast 
    else Node:=VirtualStringTree1.GetPrevious (Node); 
    if Node <> NIL then VirtualStringTree1.DeleteNode(Node); 
until Node = VirtualStringTree1.GetFirst; 
end; 

Спасибо за вашу помощь.

Answer 1

У вас есть логическая ошибка в реализации: после удаления узла ваша локальная переменная Node указывает на несуществующий узел.

Я не понимаю, почему вы не хотите просто очистить дерево, но вы можете удалить все узлы, от последнего до первого, как это:

var 
    Node, TmpNode: PVirtualNode; 
begin 
    Node := Tree.GetLast; 
    while Assigned(Node) do 
    begin 
    TmpNode := Tree.GetPrevious(Node); 
    Tree.DeleteNode(Node); 
    Node := TmpNode; 
    end; 
end;