nonVCL Treeview rekursiv durchgehen

[Luckie]

Dadurch, dass ich an der Arbeit FastMM einsetzen musste, habe ich gerade mal meinen Usermanager auf Speicherlecks getestet. Sie sind Gott sei Dank nicht so gravieren, aber trotzdem unschön.

Folgende Situation:
Ich hole mir alle Benutzer und lege sie als Objekte im lParam Attribut der Treeviewnodes als Referenzen ab. So dass ich mir die Informationen zu jeden beliebigen Benutzer anzeigen lassen kann, ohne jedes mal die Informationen extra holen zu müssen. Fülle ich den Treeview neu, werden zuvor alle Einträge gelöscht. Dabei gehen natürlich die Referenzen verloren und ich habe Speicherlecks. Also muss ich den Treeview vor dem "neu" Füllen durchgehen und die Objekte freigeben:

Delphi-Quellcode:

  // in lParam gepeicherte Objektreferenzen freigeben
  hTVItem := TreeView_GetRoot(hTV);
  hTVItem := Treeview_GetNextItem(hTV, hTVItem, TVGN_CHILD);
  while hTVItem <> nil do
  begin
    hTVItem := TreeView_GetNextItem(hTV, hTVItem, TVGN_NEXT);
    ZeroMemory(@TVItem, sizeof(TTVItem));
    TVItem.hItem := hTVItem;
    TVItem.mask := TVIF_PARAM or TVIF_TEXT;
    if TreeView_GetItemW(hTV, TVItem) then
    begin
      if Assigned(TObject(TVItem.lParam)) then
        TObject(TVItem.lParam).Free;
    end;
  end;

Das funktioniert auch ganz gut. Allerdings nur für die erste Ebene. Je nach Ansicht können die Objekte aber auch eine Ebene tiefer mit einem Item verknüpft sein. Ich muss den Treeview also rekursiv durchgehen. Und das ist der Punkt, an dem ich scheitere. Ich bräuchte mal eure Hilfe, um aus dem obigen Codeausschnitt eine Rekursivefunktion zu machen.

[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

[Luckie]

Danke. Mit Rekursion tue ich mich immer ziemlich schwer.

So sieht mein Quelltext jetzt aus:

Delphi-Quellcode:

  procedure DoClear(Tree: THandle; Item: HTREEITEM; Code: Integer);
  var
    tvi: TTVItemW;
  begin
    if not Assigned(Item) then exit;

    ZeroMemory(@tvi, sizeof(TTVItemW));
    tvi.hItem := Item;
    tvi.mask := TVIF_PARAM or TVIF_TEXT;
    if CommCtrlW.TreeView_GetItemW(Tree, tvi) then
    begin
      if Assigned(TObject(tvi.lParam)) then
        TObject(tvi.lParam).Free;
    end;

    DoClear(Tree, Treeview_GetNextItem(Tree, Item, TVGN_CHILD), TVGN_NEXT);

    while Item <> nil do
    begin
      Item := TreeView_GetNextItem(Tree, Item, TVGN_NEXT);
      DoClear(Tree, Item, Code);
    end;
  end;

Nur leider bekomme ich eine AV. Ich habe allerdings noch nicht rausfinden können, wo genau.

Er geht anscheinend einmal den Baum durch und dann will er weitermachen. Die Abbruchbedingung scheint also irgendwie nicht zu stimmen. Noch genauer: Er kommt zum letzten Item, dann zu dem Subitem und dann will er noch mal zum übergeordneten Item zurück. Aber nur beim letzten Item passiert das.

[ibp]

Delphi-Quellcode:

  procedure DoClear(Tree: THandle; Item: HTREEITEM; Code: Integer);
  var
    tvi: TTVItemW;
  begin
    if not Assigned(Item) then exit;

    ZeroMemory(@tvi, sizeof(TTVItemW));
    tvi.hItem := Item;
    tvi.mask := TVIF_PARAM or TVIF_TEXT;

    DoClear(Tree, Treeview_GetNextItem(Tree, Item, TVGN_CHILD), TVGN_NEXT);

    if CommCtrlW.TreeView_GetItemW(Tree, tvi) then
    begin
      if Assigned(TObject(tvi.lParam)) then
        TObject(tvi.lParam).Free;
    end;
  end;

versuch es mal so...

[Luckie]

So ich es so aufrufe:

Delphi-Quellcode:

  hTVItem := TreeView_GetRoot(hTV);
  DoClear(hTV, hTVItem, TVGN_CHILD

Fängt er mit Item1_1 an,macht dan mit Item1 weiter und landet schliesslich bei Root und bricht ab.

Code:

Root
  Item1
    Item1_1
  Item2
    Item2_1

[negaH]

Also du musst

1.) beim Item dessen Daten freigeben
2.) die Liste der nächsten Items durchgehen, sprich alle Items die auf'm selben Level liegen
3.) zu jedem dieser Items die Childrens druchgehen

Delphi-Quellcode:

procedure DoClear(Item);
begin
  if Item = nil then Exit;
 
1.) lösche Daten vom Item

2.) lösche Children

  DoClear(Item.FirstChildren);

3.) gehe paralleliegende Items durch

  while Item <> nil do
  begin
    Item := Item.Next;
    DoClear(Item);
  end;   
  
 
end;

Gruß Hagen

[Luckie]

Ich dachte dies würde ich mit deinem umgesetzten Pseudocode machen.

[ibp]

getnextitem holt sich also den nächsten childnode. ich hatte gedacht er geht die items durch wie beim getnext von ttreenode. damit würden die knoten der reihe nach durchlaufen...
Root,Item1,Item1_1,Item2,Item2_1
.. und du bräuchtest nicht die seiblings extra durchlaufen...

Delphi-Quellcode:

function TTreeNode.GetNext: TTreeNode;
var
  NodeID, ParentID: HTreeItem;
begin
  Result := nil;
  if (Handle <> 0) and (ItemId <> nil) then
  begin
    NodeID := TreeView_GetChild(Handle, ItemId);
    if NodeID = nil then
      NodeID := TreeView_GetNextSibling(Handle, ItemId);
    ParentID := ItemId;
    while (NodeID = nil) and (ParentID <> nil) do
    begin
      ParentID := TreeView_GetParent(Handle, ParentID);
      NodeID := TreeView_GetNextSibling(Handle, ParentID);
    end;
    Result := FOwner.GetNode(NodeID);
  end;
end;

[Luckie]

Und was bedeutet dies in Bezug auf deinen Quelltext? Und denk bitte daran, dass ich die VCL nicht verwende.

[negaH]

Zitat:

Ich dachte dies würde ich mit deinem umgesetzten Pseudocode machen.

Korrekt. Ich habs nur nochmal präzisiert weil ibp die Schleife die durch alle Childs druchgeht wieder entfernt hatte.

Warum bei dir Exceptions kommen weis ich nicht, man sollte nochmal Treeview_GetNextItem() nachschlagen. Ich persönlich habe damit noch nie gearbeitet, du weist das ich NonVCL nicht bevorzuge.

Gruß Hagen