Путь в TreeView?

← →
MadAngel (2003-12-28 14:13) [0]

Как получить полный путь до выбранного итема в TreeView?

← →
Opuhshii (2003-12-28 14:47) [1]

TTreeNode.Parent, TTreeNode.Level

← →
Opuhshii (2003-12-28 14:47) [2]

выбраный соответственно TTreeView.Selected

← →
jack128 (2003-12-28 14:53) [3]

Node := TreeView.Selected;
Result := "";
while Assigned(Node) do
begin
Result := Result + Node.Text +",";
Node := Node.Parent;
end;
SetLength(Result, Length(Result) - 1);

← →
MadAngel (2003-12-28 15:19) [4]

to jack128
Спасибо большое,только надо было вот так:

Var
Node:TTreeNode;
Result:string;
begin
Node := TreeView1.Selected;
Result := "";
while Assigned(Node) do
begin
Result :=Node.Text+"\"+Result;
Node := Node.Parent;
end;
SetLength(Result, Length(Result) - 1);
end;

Может кому пригодится...

Путь в TreeView? Найти похожие ветки