求：将 Treeview 的内容导出为 xml 的函数~~

Question

从网上找了将xml 转到Treeview 的函数
不知道怎么再转换回去 
本人刚刚入道 对delphi 还不太熟
希望强人指教：
 将Treeview 导出 xml的函数~ 
不胜感激~~

Answer 1

其中 将xml 导入到Treeview的函数如下：
procedure TFrmXML.Domtotree(xmlnode: ixmlnode; Treenode: Ttreenode);  //将xml转换到treeview
Var   
  i:Integer;
  newtreenode:Ttreenode;
  Nodetext:string;
  Attrnode:ixmlnode;
Begin
  If not(xmlnode.NodeType=ntElement) Then  exit;
  nodetext:=xmlnode.NodeName;
  If  xmlnode.IsTextElement Then
  Begin
    Nodetext:=Nodetext+'='+Xmlnode.NodeValue;
  End;
  NewTreenode:=Treeview1.Items.AddChild(treenode,Nodetext);
  For i:=0 To xmlnode.AttributeNodes.Count-1 Do
  Begin
    Attrnode:=xmlnode.AttributeNodes.Nodes[i];
    Treeview1.items.AddChild(newtreenode,'['+Attrnode.NodeName+'='''+Attrnode.Text+''']');
  End;
  If xmlnode.HasChildNodes  Then
  begin
    For i:=0 To xmlnode.ChildNodes.Count-1 Do
      Domtotree(xmlnode.ChildNodes.Nodes[i],newtreenode);
  end;
End;

Answer 2

Exporting a TreeView to XML. Populating a TreeView from XML

Answer 3

那个方法不太好用呢，不过还是谢谢了。。
谁还有更好的方法呢？？？
调用一下函数 就能直接出来XMl文件的结果？~~