Wie kann ich rausfinden ob ein trreviewitem mehr als 1 paren

[ipworks]

ok sorry....hatte den exception-Handler am Ende vergessen.

Delphi-Quellcode:

try
...
except end;

so Du möchtest den Text kombinieren?

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); 
const
// falls Du einen Separator zwischen die Nodetext einfügen willst
Separator:String='\\';
var 
Checknode: TTreeNode; 
x: Byte;
nodetext: string; 
begin 
   try 
    //--Zähler 
    x:=0; 
    //----Irgendein gewählter Treenode 
    Checknode:=TreeView1.Selected; 
    nodetext:=Checknode.Text;
    while Checknode.Parent<>nil do begin 
      Inc(x);       
      Checknode:=Checknode.Parent; 
      nodetext:=Checknode.Text+Separator+nodetext;
    end; 
    ShowMessage(Treeview1.Selected.Text+' hat '+InttoStr(x)+' Parentnodes'+#13+'Gesamtnodetext: '+nodetext); 
   except end;
    end;

War das deine Frage?