delphi解析xml

delphi解析xml

	 //解析xml (自己做的时候写的，仅供参考)

ComXML := LoadXMLData(jmxml);
XMLNode := ComXML.DocumentElement;
if not XMLNode.HasChildNodes then Exit;
nodeList := XMLNode.ChildNodes;

for i := 0 to nodeList.Count - 1 do
begin
if nodeList[i].IsTextElement then //元素
begin
if nodeList[i].NodeName=‘code’ then
begin
code :=nodeList[i].NodeValue;
end
else if nodeList[i].NodeName=‘msg’ then
begin
if msg = ‘’ then
begin
msg:=’’;
end
else
begin
msg:=nodeList[i].NodeValue;
end;
end
else if nodeList[i].NodeName=‘counts’ then
begin
counts:=nodeList[i].NodeValue;
end;
end
else if nodeList[i].HasChildNodes then //子节点
begin
nodeList1 := XMLNode.ChildNodes[‘lc01s’].ChildNodes;
for j:= 0 to nodeList1.Co