利用XML接口处理XML串数据

接口：IXMLDocument

 实例代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
XMLString :string;
IXMLDocumentInt :IXMLDocument;
nodeList: IXMLNodeList;
i :integer;
begin
XMLString := ''
+''
+''
+'xml.circuit.circuitCode[i]'
+'xml.circuit.aNode[i].aNodeName'
+''
+''
+'xml.circuit.circuitCode[i]'
+'xml.circuit.aNode[i].aNodeName'
+''
+'';
IXMLDocumentInt:= LoadXMLData(XMLString);
nodeList := IXMLDocumentInt.DocumentElement.ChildNodes;
for i:=0 to nodeList.Count - 1 do
memo1.lines.add(nodeList[i].ChildNodes['circuitCode'].Text);
end;

 

此方法可用于处理WEB服务接口返回的XML串数据