＋设为首页 ＋添加到收藏夹
如下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控件遍历呢？
递归,不多这样...
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;
