Sortierfunktion für Treestruktur

[ibp]

schematisch, rekursiver ansatz

Delphi-Quellcode:

procedure loadtree(anode:ttreenode; pkey:tkey);
var
  treenode:ttreenode;
  itemnode:TItem;
begin
  sql.create;
  sql='select fID, fParentID, fPrevID, titel from bla where fParentID='+pkey+' order by 
fID';  
  while sql<>nil do
  begin
    itemnode.create;
    itemnode:=.... // hier dein nodeinfos aus der db speichern

    treeNode:=Treeview.Items.AddChildObject(aNode,titel,itemnode); 

    // kinder laden vom aktuellen knoten
    loadtree(treeNode, itemnode.fID);

    sql.next;
  end;
  sql.free;
end;

[edit=SirThornberry]Code-Tags durch Delphitags ersetzt - Mfg, SirThornberry[/edit]