提取XML数据的问题，高手帮忙下！！

Question

我有个XML的文件，它的格式是
<man>
  <name> xxx </name>
  <age> 111 </age>
  <name> xxx </name>
  <age>  111 </age>
  <name> xxx  </name>
  <age> 111 </age>
  <name> xxx  </name>
  <age> 111 </age>
  <name> xxx  </name>
  <age>  111 </age>
  ...........
  ..........
</man>要求是得到所有的name数据
我用XMLDocument控件只能读出第1个<name></name>之间的数据，下面其它name数据就老是得不到，哪位高手知道怎么写这段代码不？

Answer 1

var
  RootNode, SubNode: IXMLNode;
begin
  RootNode := XMLDoc.DocumentElement;
  SubNode := RootNode.ChildNodes.First;
  while SubNode <> nil do
  begin
    if SubNode.NodeName = 'name' then
    begin
      //进行处理
    end;
    SubNode := SubNode.NextSibling;
  end;
end;