Delphi 操作 XML（一）

一、欢迎
　　本帮助文件提供从SimDesign BV的NativeXml组件的信息。
二、购买NativeXml!
　　NativeXml现在是开源的，但支持是仅专门适用于购买NativeXml的客户。
　　您可以通过此链接购买NativeXml：http://www.simdesign.nl/xml.html
　　价格：29.95欧元
　　采购NativeXml的优势：
　　两年的通过电子邮件或特殊的“NativeXml Source”论坛支持，接收测试和修正，并从“NativeXml Source”论坛发布
三、使用NativeXml的例子
　　本章提供有关如何使用NativeXml一些例子。
3.1.例子A:XML的装载、存储和导出
　　这个例子显示如何加载一个XML文档，然后以可读格式导出到一个TMemo领域。
　　拖放一个TEdit（Edit1），TButton（Button1）和一个TMemo到你的窗体，然后连接到下面的按钮的OnClick事件代码。填写文件名到Edit1，然后按一下按钮，您会看到在memo控件中列出XML文件的内容。
procedure TForm1.Button1Click(Sender: TObject);
var
  ADoc: TNativeXml;
begin
  Memo1.Lines.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.LoadFromFile(Edit1.Text);
    ADoc.XmlFormat := xfReadable;
    Memo1.Lines.Text := ADoc.WriteToString;
  finally
    ADoc.Free;
  end;
end;
　　注意，ADoc.XmlFormat：= xfReadable将确保该文件是以易读的形式列出（以回车符和缩进）。
3.2.例子B:连接到节点
　　这个例子显示了如何访问在XML文件中的各个节点。一个节点可以从一个普通的XML标记、注释、CDATA结构，等等东西。该示例演示如何使用一个简单的双循环列出前2层的节点。
　　添加Tedit、TButton和TMemo到窗体，然后将下面的事件代码连接到按钮的OnClick。然后在Edit1中填写文件名，按一下按钮，前两层的节点将会在memo控件中列出。
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: integer;
  ADoc: TNativeXml;
begin