Delphi新手问题， 输出treeview的全部节点名称

来源：百度知道 编辑：UC知道 时间：2024/09/21 15:53:04
我有一个treeview

学校|-高中|-高一
| |-高二
| |-高三
|
|-初中|-初一
| |-初二
| |-初三

现在我点击'初三'的时候，要求得到 '学校/初中/初三' 这样的字符串
点'高中'的时候 得到 '学校/高中' 这样的字符串
问如何实现?

我的是这样的.
var
node:TTreeNode;
result:string;
begin
result:='';
node:=tv1.Selected;
result:=node.Text;
while node.Parent<>nil do
begin
node:=node.Parent;
result:=node.Text+'/'+ result;
end;
ShowMessage(result);
end;

if TreeView1.Selected = nil then
Label1.Caption := '';
case TreeView1.Selected.Level of
0: label1.Caption := treeview1.Items.Item[0].Text;
1: label1.Caption := treeview1.Items.Item[0].Text +'/'+ treeview1.Selected.Text;
2: label1.Caption := treeview1.Items.Item[0].Text +'/'+ treeview1.Selected.Parent.Text +'/'+treeview1.Selected.Text;
end;