TBaumListe in Treeview?

[omata]

Moin,

vielleicht so...

Delphi-Quellcode:

procedure BaumToTreeView(Baum: TBaum; Node:TTreeNode; TreeView:TTreeView);
var newNode:TTreeNode;
begin
  if assigned(Baum) then begin
    newNode:=TreeView.Items.AddChild(Node, Baum^.info);
    BaumToTreeView(Baum^.links, newNode, TreeView);
    BaumToTreeView(Baum^.rechts, newNode, TreeView);
  end;
end;

Aufruf:

Delphi-Quellcode:

  TreeView1.Items.Clear;
  BaumToTreeView(WurzelVonDemEinzufuegenenBaum, nil, TreeView1);

MfG
Thorsten