Delphi使用NativeXml访问XML文件

最新推荐文章于 2025-05-10 00:56:43 发布

chinajobs

最新推荐文章于 2025-05-10 00:56:43 发布

阅读量4.5k

点赞数 1

分类专栏： Delphi 文章标签： nativeXML

Delphi 专栏收录该内容

150 篇文章

订阅专栏

本文介绍如何使用TNativeXml组件创建、更新及查询XML文件。主要内容包括：创建XML文件、添加新节点、更新现有节点数据、在指定节点下创建子节点以及查询特定节点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.创建XML文件
var Doc: TNativeXml;//声明上下文对象
var filepath:string;//文件路径
DOC:=TNativeXml.CreateName('root');
Doc.EncodingString:='gb2312';
DOC.XmlFormat:=xfReadable;
DOC.SaveToFile(filepath);

2.创建新节点
//先在根节点下创建一个节点名为userInfo的节点，然后给该节点写一个属性为loginname，属性值为ceshiyong
DOC.Root.NodeNew('userInfo').WriteAttributeString('loginname','ceshiyong');

3.更新节点
with Doc.Root.NodeByName('sysconfig').NodeByName('netconfig').NodeByName('webserviceconfig') do
    begin
        WriteString('serverurl',model.serverurl);
        WriteString('serverport',model.serverport);
    end;
DOC.SaveToFile(filepath);

4.在父节点下创建子节点
//在根节点下查找属性loginname='ceshiyong'节点，并在该节点下创建节点名为baseinfo节点
with Doc.Root.NodeByAttributeValue('userInfo','loginname','ceshiyong').NodeNew('baseinfo') do
    begin
        WriteString('id','');
        WriteString('name','');
        WriteString('loginname','');
        WriteString('shenfen','');
        WriteString('nickname','');
        WriteString('email','');
        WriteString('qq','');
        WriteString('mobile','');
        WriteString('officephone','');
        WriteString('HomePhone','');
        WriteString('Address','');
        WriteString('birthday','');
        WriteString('sex','');
    end;