XML文件遍历问题

Question

如下XML文件
<?xml version = "1.0" encoding = "GB2312"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntaxns#">
<rdf:Description about = "网站首页">
 <军事>
<陆军>
<陆军参穆长>小动</陆军参穆长>
</陆军>
<海军>
<海军蚕木长>海军蚕木长</海军蚕木长>
</海军>
<空军>
<空军蚕木长>空军蚕木长</空军蚕木长>
</空军>
</军事>
<科技>
<传统科学>
<医疗><爱滋病患者>里刚</爱滋病患者>
</医疗>
</传统科学>
<边缘科学></边缘科学>
</科技>
<教育></教育>
<经济></经济>
<文化></文化>
<政治></政治>
</rdf:Description>
</rdf:RDF>
如何调用XMLDOCUMENT控件遍历呢？

Answer 1

递归,不多这样...procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowNodesName(X.ChildNodes);
end;procedure TForm1.ShowNodesName(XMLNode: IXMlNodeList);
var
  i: Integer;
begin
  for i:=0 to XMLNode.Count - 1 do
  begin
    ShowMessage(XMLNode.Get(i).NodeName);
    ShowNodesName(XMLNode.Get(i).ChildNodes);
  end;
end;