Delphi 读XML文件

RAD Studio 10.2.3 测试√

2021年9月9日：【新增】读取节点中的属性内容

示例：

<?xml version="1.0" encoding="UTF-8"?>
<Persons><test>测试内容</test><!-- test2  是新增内容 时间：2021年9月9日 --><test2 Content="测试内容2"></test2><Person><Name>小印01</Name><Age>22</Age><Sex>男</Sex></Person><Person><Name>小印02</Name><Age>23</Age><Sex>男</Sex></Person>
</Persons>

结果：修改时间 2021年9月9日

代码：

// uses Xml.XMLDoc, Xml.XMLIntfprocedure ReadXMlNode(AStrList: TStringList; ANode: IXMLNode);
vari: Integer;mNodeList: IXMLNodeList;mNodeName: string;mTmpStr: string;
beginmTmpStr := '';if not ANode.HasChildNodes then         // 如果 mNode 没有子节点Exit;mNodeList := ANode.ChildNodes;for i := 0 to mNodeList.Count - 1 dobeginmNodeName := mNodeList[i].NodeName;// begin ******* 新增内容 2021年9月9日 ******************************if mNodeName = 'test2' thenbegin// 获取节点中的属性内容mTmpStr := mNodeName + ': ' + mNodeList[i].Attributes['Content'];AStrList.Add(mTmpStr);end;// end ******* 新增内容 2021年9月9日 ********************************if mNodeList[i].IsTextElement then    // 如果是文本元素beginmTmpStr := mNodeName + ': ' + mNodeList[i].NodeValue;AStrList.Add(mTmpStr);endelseif mNodeList[i].HasChildNodes then    // 如果还有子节点beginReadXMlNode(AStrList, mNodeList[i]);end;end;
end;procedure TForm_Tips.Button_ReadXMLFileClick(Sender: TObject);
varmFileName: string;mDocument: IXMLDocument;mMainNode: IXMLNode;mStrList: TStringList;
beginmFileName := ExtractFileDir(ParamStr(0)) + '\test.xml';if not FileExists(mFileName) thenExit;mDocument := TXMLDocument.Create(nil);mDocument.LoadFromFile(mFileName);mMainNode := mDocument.DocumentElement;mStrList := TStringList.Create;ReadXMlNode(mStrList, mMainNode);Memo_Log.Lines.Text := mStrList.Text;mStrList.Free;
end;

一点点笔记，以便以后翻阅。

Delphi 读XML文件相关推荐

02_Android写xml文件和读xml文件
新建Android项目编写AndroidManifest.xml,使本Android项目具有单元测试功能和写外设的权限. <?xml version="1.0" en ...
Qt: QXMLStreamReader,读XML文件实例
主要接口: 1.TokenType QXmlStreamReader::readNext() 功能:读取下一个标记,并返回其类型. 主要的类型有: enum QXmlStreamReader::Tok ...
TinyXML-2 读 XML 文件
要读的XML文件示例代码 #include <iostream> #include "tinyxml2.h"using namespace std; using na ...
使用tinyxml读xml文件信息到结构体
下载TinyXML的网址:http://www.grinninglizard.com/tinyxml/ 使用TinyXML只需要将其中的6个文件拷贝到项目中就可以直接使用了,这六个文件是:tinyxm ...
python读xml文件生成头文件_Python根据指定文件生成XML的方法
因项目需要根据指定格式的文件生成XML标注文件,可以方便使用LabelImg打开进行编辑和查看.其原始文件默认使用逗号进行分隔,如下所示: 第1个值:原始图片中切图小文件,以AIpng_x,其中x代表 ...
java读xml文件一般用什么_java读xml文件
/** * 读取sms.xml配置文件信息 * @param file * @throws IOException * @throws JDOMException */ public ReadSMSF ...
python读xml文件生成.h头文件_PYTHON读写xml文件的方法
要生成的xml文件格式如下: [python] sample xml thing ma xiaoju Springs Widgets, Inc. First I think widgets are g ...
python读xml文件生成.h头文件_Python创建xml文件示例
Python创建xml文件示例这里有新鲜出炉的 Python 入门,程序狗速度看过来! Python 编程语言 Python 是一种面向对象.解释型计算机程序设计语言,由 Guido van Ros ...
boost库用property_tree读xml文件
深刻理解boost property_tree的用法,通过一级循环判断,来遍历xml文件里的一级二级目录: 源代码: #include<boost/property_tree/ptree.hpp ...

Delphi 读XML文件

示例：

结果：修改时间 2021年9月9日

代码：

Delphi 读XML文件相关推荐

最新文章

热门文章