TTreeview

[simonko]

Delphi-Quellcode:

procedure durchgehen(var treenode : TTreenode);
begin
 if treenode.haschildren then begin
    durchgehen(treenode.getFirstChild);
    durchgehen(treenode.GetLastChild);
 end;
 TOperand(treenode.Data).destroy;
end;

geht das so?