nonVCL Treeview rekursiv durchgehen

[negaH]

Pseudocode

Delphi-Quellcode:

procedure DoClear(Tree: hTV; Item: hTVItem);
begin
   if Item = nil exit;

   if TreeView_GetItemW(Tree, Item) then
   begin
     if Assigned(TObject(Item.lParam)) then
       TObject(Item.lParam).Free;
   end; 
    
   DoClear(Treeview_GetNextItem(Tree, Item, TVGN_CHILD));
   
   while Item <> nil do
   begin
     Item := TreeView_GetNextItem(Tree, Item, TVGN_NEXT); 
     DoClear(Item);
   end;  
end;

Gruß Hagen