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.Count - 1 do
begin
if nodeList1[j].HasChildNodes then
begin
nodeList2 := XMLNode.ChildNodes[‘lc01s’].ChildNodes[j].ChildNodes;

        for  z:= 0 to nodeList2.Count - 1 dobeginif nodeList2[z].NodeName='aac001'  thenbeginaac001 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alca02' thenbeginalca02 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aab001' thenbeginaab001 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aab009' thenbeginaab009 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aab301' thenbeginaab301 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aac002' thenbeginaac002 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aac003' thenbeginaac003 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aac004' thenbeginaac004 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aaea06' thenbeginaaea06 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='akb020' thenbeginakb020 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc020' thenbeginalc020 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc021' thenbeginalc021 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc022' thenbeginalc022 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc024' thenbeginalc024 :=vartostr( nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc023' thenbeginalc023 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc027' thenbeginalc027 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc060' thenbeginalc060 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='ala040' thenbeginala040 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='alc084' thenbeginalc084 := vartostr(nodeList2[z].NodeValue);endelse if nodeList2[z].NodeName='aae116' thenbeginaae116 := vartostr(nodeList2[z].NodeValue);end;end;end;end;
end;

end;

delphi解析xml相关推荐

delphi读取xml中的内容property name传递参数_Python 进阶知识全篇-XML 解析
什么是 XML? XML 指可扩展标记语言(eXtensible Markup Language),标准通用标记语言的子集,是一种用于标记电子文件使其具有结构性的标记语言. 你可以通过本站学习 XML ...
delphi读取xml中的内容property name传递参数_python3 Json和XML数据解析
一.Json数据解析 Python3 中可以使用 json 模块来对 JSON 数据进行编解码,它包含了两个函数: json.dumps(): 对数据进行编码. json.loads(): 对数据进行 ...
Java解析xml的主要解析器: SAX和DOM的选择(附上新方法--Pull解析)
Java的xml解析器库有很多,总的来说,万变不离其宗的就是SAX和DOM解析器. SAX的包是org.xml.sax DOM的包是org.w3c.dom 1) DOM DOM 是用与平台和语言无关的 ...
delphi操作xml学习笔记之一入门必读
Delphi 对XML的支持---TXMLDocument类 Delphi7 支持对XML文档的操作,可以通过TXMLDocument类来实现对XML文档的读写.可以利用TXMLDocument把XM ...
delphi 解析json java_DELPHI 解析 JSON
JSON相对XML轻量了很多,考虑到以后WEBSERVICE可以通过JSON实现DELPHI的程序和WEBSERVICE进行交互,今天就想去看一下DELPHI如何解析JSON. 比如:如何将: {&q ...
python 使用sax 解析xml 文件
这里不是说xml 的所以如果xml 不了解,可以百度大致看下即可, SAX知识了解 SAX (simple API for XML ) 有解析器和事件处理器解析器负责读取XML文档,并向事件处理器 ...
c语言解析xml字符串_Python XML解析
Python XML解析什么是XML? XML 指可扩展标记语言(eXtensible Markup Language). 你可以通过本站学习XML教程 XML 被设计用来传输和存储数据. XML是 ...
python中利用lxml模块解析xml文件报错XMLSyntaxError: Opening and ending tag mismatch
今天在代码中第一次使用lxml解析xml文件时出错了, XMLSyntaxError: Opening and ending tag mismatch: keyEffectiveDate line 2 ...
XML 解析XML文档 XML约束
XML 什么是XML Extensible Markup Language(可扩展的标记语言) 他是一个语言,有自己的语法,和Java以及其他的编程无关 "标记" 在文件中包含类似 ...

delphi解析xml

delphi解析xml

delphi解析xml相关推荐

最新文章

热门文章