16,746
社区成员




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;