Delphi中關于讀取XML內(nèi)容？

用TXMLDocument來解析.不過因為的Item因為是一個集合,所以只能循環(huán)一個一個讀,有點麻煩,下面是我?guī)湍銓懙囊粋€解析程序,可以把每個Item的name和Value都ShowMessage顯示出來.在D2007下持行通過.vari:integer;RootNode:IXMLNode;beginself.XMLDoc.Active:=False;self.XMLDoc.XML.Text:='你的XML';self.XMLDoc.Active:=true;RootNode:=self.XMLDoc.DocumentElement;fori:=0toRootNode.ChildNodes[0].ChildNodes.Count-1dobeginshowmessageFmt('name=%s,value=%s',[VarToStr(RootNode.ChildNodes[0].ChildNodes[i].Attributes['name']),VarToStr(RootNode.ChildNodes[0].ChildNodes[i].Attributes['value'])]);end;end;