用XMLDocument解析xml

读取

var  i: Integer;  node: IXMLNode;  id, name: string;begin  XMLDocument1.DOMVendor := GetDOMVendor('Omni XML'); // OmniXML是XE7提供的新DOM，比ADOM还要快  XMLDocument1.LoadFromXML('<books><book><id>1001</id><name>android</name></book><book><id>1002</id><name>ios</name></book></books>');  for i := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do  begin    node := XMLDocument1.DocumentElement.ChildNodes[i];    id := node.ChildNodes['id'].Text;    name := node.ChildNodes['name'].Text;end;