一个更加强大易用的XML库 -- NativeXML

  原来一直使用delphi自带的txmldocument类来进行xml文件的读写，虽然麻烦了一点，但功能上来说还不错。只是有一个地方让我实在不舒服 - 每次创建txmldocument类实例的时候必须传入tcomponent对象，这就意味着，如果我把对xml文件的读写封装到一个类里面，那么在创建这个自定义类的时候就必须也传入tcomponent对象。
  我尝试过很多方法，但是都无法避免，最后试着上网找了找，于是就找到了nativexml这个库。
  下载之后马上打开demo看了看，cool，创建tnativexml的时候只需要传入xml文件路径就可以，再往下看就让我开始惊喜了。它已经把大多数操作都封装好了，而且还具有把任意对象序列化的能力。
  比如，你能把整个form通过 tsdxmlobjectwriter = class(tpersistent)  类存入一个xml文件，下次再读取。这样使得远程传输对象变得很简单了。
  下面就是一个使用nativexml库的例子：
  目标xml结构:
  <bookshift>
      <book author = "test_author">
          <date>2000-01-01</date>
      </book>
  </bookshift>

  delphi 代码:
  procedure writetest;
  var
    xml : tnativexml;
    n_bs : txmlnode; 
  begin
    //建立根节点
    xml := tnativexml.createname('bookshift');
    
    xml.encodingstring := 'gb2312';
    //输出风格为易读
    xml.xmlformat := xfreadable;

    //建立book节点
    n_bs := xml.root.nodenew('book');
    //写入book节点的属性
    n_bs.writeattribuitestring('author','test_author');
    //建立book节点下属date节点并写入值
    n_bs.writestring('date','2000-01-01');
   
    xml.savetofile('test.xml');
  end;

  打开test.xml文件看看吧，和上面的格式一摸一样。
  很简单吧，我用这个库重写了原来的xml访问类，大约节省了40%的代码量。