Wie kann ich rausfinden ob ein trreviewitem mehr als 1 paren

[ipworks]

OK,
also aus dem Kopf

Delphi-Quellcode:

var
Checknode: TTreeNode;
x: Byte;
begin
   try
    //--Zähler
    x:=0;
    //----Irgendein gewählter Treenode
    Checknode:=TreeView1.Selected;
    while Checknode.Parent<>nil do begin
      Inc(x);
      Checknode:=Checknode.Parent;
    end;
    ShowMessage(Treeview1.Selected.Text+' hat '+InttoStr(x)+' Parentnodes');
end;

Hab's nicht getestet, sondern gerade aus dem Kopf geschrieben.
Hoffe es hilft.
Lass es uns wissen.
mfg
Peter