TBaumListe in Treeview?

[blamed-rookie]

hi,

angenommen ich erstelle mir eine Liste die einen binären Baum darstellen soll...

Typdeklaration:

Code:

   
  TBaum = ^TKnoten;
  TKnoten = record
              info :char;
              links :TBaum;
              rechts :TBaum;
            end;

... wie bekomme ich diese Liste, sobald sie komplett erstellt wurde, in die TreeView-Komponente rein?

Thx,
rook

[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

[blamed-rookie]

klasse!! sowas hab ich gesucht!

habs zwar mittlerweile auch selber hinbekommen, aber noch längst nicht so kurz und sauber wie hier.
Dankeschön