在TreeView中，选择一个节点，能否得到该节点的完整路径？

Question

var t :TTreeNode;
  s :String;
begin
  t := treeview1.selected;
  s := t.Text;
  while t.AbsoluteIndex <> 0 do
  begin
    t := t.Parent;
    s := t.Text + '/' + s;  end;
  showmessage(s);
end;
加分吧

Answer 1

S: string;While Node.Parent <> nil do
begin
  S := Node.Parent.Text + '\' + S;
  Node := Node.Parent;
end;

Answer 2

循环的时候可以用Level属性来进行控制

Answer 3

用Level来做
你可以用node.parent来返回这个结点
if level=1
   text=node.parent.parent.text 
if level=2
   text=node.parent.parent.text 
if level=3
   text=node.parent.parent.parent.text 
就这样!!!

Answer 4

treeview(selected).lev
返回被选择的结点次序。