zoukankan      html  css  js  c++  java
  • Delphi使用NativeXml访问XML文件

    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;

    5.节点查找(查找多个节点)
    var AList: TXmlNodeList;
    ALIST:=TXmlNodeList.Create;
    Doc.Root.FindNodes('userInfo',AList);

  • 相关阅读:
    辅助方法
    扩展方法学习发展之路
    对IOC模式与容器Autofac在MVC里面的一些用法
    Qlikview Session Recovery
    SNOY VAIO 索尼电脑亮度自动变暗
    EXCEL2010数据挖掘插件 下载地址
    Ubuntu20.04 源码安装完应用 如何将应用程序添加到启动器
    flask + flask_restplus+ blueprints 脚手架
    闭包
    操作方法
  • 原文地址:https://www.cnblogs.com/weijie-liu/p/10076729.html
Copyright © 2011-2022 走看看