delphi 怎样得到 treeview 内容(100分)

delphi 怎样得到 treeview 内容
例如
A
A1
A1-1
A1-1-1
A2
A2-1
当我选择A1-1-时 Edit.text = A A1 A1-1 A1-1-1

Click 事件：
Var
Node :TTreeNode;
Name:String;
Level:integer;
begin

Node:=TreeView1.Selected;
if Node<>nil then

begin

Level:=Node.Level;
while Level>0do

begin

Name:=' '+Node.Text;
Node:=Node.Parent;
Level:=Node.Level;
end;

end;

Edit1.text:=Name;
end;

以上不太严谨，没有测试。就在这写的。仅供参考。

function f_GetNodeInfo(v_Node: TTreeNode): string;
var
v_Count: Integer;
begin

if v_Node = nil then
exit;
Result := v_Node.Text;
for v_Count := 0 to v_Node.Count - 1do

begin

Result := Result + f_GetNodeInfo(v_Node.Item[v_Count]);
end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin

Caption := f_GetNodeInfo(TreeView1.Selected);
end;

到这上看一下http://www.delphibbs.com/keylife/iblog_show.asp?xid=20893
上面是我写的树行结构控制程序，也许对你有用