Delphi XML文件操作求教,很急

qq_34656542 2016-04-17 11:44:29
<?xml version="1.0" encoding="gb2312"?>
<root>
<fileType name="config">
<file name="newqysdsyb15nb_PZ.xml" modifyDate="2016-04-04 11:11:11"/>
<file name="newqysds3m15nb_PZ.xml" modifyDate="2016-03-17 11:11:11"/>
<file name="newqysdsnb2014_PZ.xml" modifyDate="2016-03-17 11:11:11"/>
<file name="newqysdsnb2015_PZ.xml" modifyDate="2016-04-07 11:11:11"/>
<file name="newgrtzzsdsB_PZ.xml" modifyDate="2016-03-14 11:11:11"/>
<file name="dkdjbgb_PZ.xml" modifyDate="2016-02-04 11:11:11"/>
<file name="dqdenssbb_PZ.xml" modifyDate="2016-02-05 11:11:11"/>
<file name="tdhygrsdsndsbb_PZ.xml" modifyDate="2016-02-04 11:11:11"/>
<file name="Cgrsdssbb_PZ.xml" modifyDate="2016-01-04 11:11:11"/>
<file name="newgrsdssyybA_PZ.xml" modifyDate="2016-03-14 11:11:11"/>
<file name="newgrtzzsdsA_PZ.xml" modifyDate="2016-03-14 11:11:11"/>
<file name="newqysds3m15_PZ.xml" modifyDate="2016-01-13 11:11:11"/>
比如这里面的 <file name="newqysdsnb2015_PZ.xml" modifyDate="2016-04-07 11:11:11"/>下面添加一条<file name="dqdenssbb_PZ.xml" asdafyDate="2016-12-05 11:11:11"/>怎么加,急求,各位
...全文
451 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaoyongxiao 2016-04-20
  • 打赏
  • 举报
回复
先把这句 <file name="newqysdsnb2015_PZ.xml" modifyDate="2016-04-07 11:11:11"/>改成以下两句: <file name="newqysdsnb2015_PZ.xml" modifyDate="2016-04-07 11:11:11"> </file> 然后往这两句中间加节点就是子节点了,比如: <file name="newqysdsnb2015_PZ.xml" modifyDate="2016-04-07 11:11:11"> <file2 name="dqdenssbb_PZ.xml" modifyDate="2016-02-05 11:11:11"/> </file>
lyhoo163 2016-04-20
  • 打赏
  • 举报
回复

procedure TForm1.Button36Click(Sender: TObject);
var i:integer;
    nodeList,nodeList1:IXMLNodeList;
    XMLAddNode,XMLRootNode,XMLnode1:IXMLNode;
    sDate,sName:string;
begin
  sDate:='2016-12-05 11:11:11';
  sName:='dqdenssbb_PZ.xml';

  XMLDocument1.LoadFromFile('My2.xml');
  Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
  XMLRootNode := XMLDocument1.DocumentElement;                        // 根节点
  NodeList:=XMLRootNode.ChildNodes;                                   // 第1级
  fOR I:=0 TO NodeList.Count-1 DO
  BEGIN
    XMLNode1:=NodeList.Get(i);
    if XMLNode1.NodeName='fileType' then
    begin
      XMLAddNode := XMLNode1.AddChild('file');               // 添加子节点
      XMLAddNode.SetAttribute('name',sName);                 // 属性名,属性值
      XMLAddNode.SetAttribute('modifyDate',sDate);           // 属性名,属性值
    end;
  end;
  XMLDocument1.SaveToFile('my2.xml');                                      // 保存XML文件
end;

16,746

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧