nonVCL Treeview rekursiv durchgehen

[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.