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.