读取
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;