用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;