XMLDocument的用法

直接设置XML内容：
 xml1.XML.Text:='<option><sql>select * from abc</sql><count>2</count></option>'; 
 xml1.Active:=true;
 aNode := XML1.DocumentElement;
 showmessage(aNode.NodeName);

 

逐节点加入：
var
XDoc :TXMLDocument;
Root :IXMLNode;
Node :IXMLNode;

begin
    XDoc.Active := true;
    Root := XDoc.AddChild('Root');
    Node := Root.AddChild('Node');
    Node.Attributes['Attrib'] := 'Attrib';
end;

读取XML节点:
var
XDoc :TXMLDocument;
sXML,sName,sAttr :AnsiString;
Root :IXMLNode;
Node :IXMLNode;
begin
    XDoc.Active := false;
    XDoc.XML.Text := sXML;
    XDoc.Active := true;
    Root = XDoc.DocumentElement;
    if (Root.NodeName = 'Root')
    begin
        Node := Root.ChildNodes.Nodes[0];
       //或者Node := Root.ChildNodes['sql'];
        sName := Node.NodeName;
        sAttr := Node.GetAttribute(A_Folder);
    end
    XDoc.Active := false;
end;