操纵XML：如何直接替换IXmlnode.xml?

李秋步 2017-02-19 11:10:10

操作XML一般是创建xmlnode，添加、修改、删除节点内容。
但XML为纯文本，IXMLNode.XML为只读属性，如何直接替换其XML，实现ixmlnode的载入、修改？

...全文

507 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyhoo163 2017-02-22

打赏
举报

回复

首先要搞清XML结构，才能的读写它。将XML文件，发给我。lyhoo163@163.com

李秋步 2017-02-22

打赏
举报

回复

原本想偷个懒找到现成的方法实现 IXMLNode.XML 的更新，没有找到，只好自己动手麻烦点。 IXMLNode的XML、NodeName都是只读的属性，要实现更新节点包括节点名，我这样做了：目标：我有些节点XML是保存在文本文件中的，需要更新到当前节点中。方法：就是实现对载入的XML节点的内容进行更新，包括节点名。实施：记录将原节点的位置（NodeIndex），删除它；（用formatXMLData后解析出文本中的节点名)在该位置（Nodeindex）创建新的节点，从文本中解析出节点属性和子节点并重新创建完成。

lyhoo163 2017-02-20

打赏
举报

回复

XML本身就是一个文本文件。仅读功仅写XML简单一点，修改XML复杂一点。首先要摸清它的结构，再通过读取节点，再修改节点值，最后将节点写入XML。

weixin_37589485 2017-02-20

打赏
举报

回复

？？？？？？？？？？？？？？

Delphi7向常用的XML文件中添加内容，按照XML的节点规则依次写入内容，自定义各个节点及节点内容，具体的操作代码如下示：　　var 　　 iXml: IDOMDocument; 　　 iRoot, iNode, iNode2, iChild, iAttribute: IDOMNode; 　　begin 　　 XMLDocument1.Active := False; 　　 XMLDocument1.XML.Text := ''; 　　 XMLDocument1.Active := True; 　　 iXml := XMLDocument1.DOMDocument; 　　 iRoot := iXml.appendChild (iXml.createElement ('xml')); 　　 iNode := iRoot.appendChild (iXml.createElement ('test')); 　　 iNode.appendChild (iXml.createElement ('test2')); 　　 iChild := iNode.appendChild (iXml.createElement ('test3')); 　　 iChild.appendChild (iXml.createTextNode('simple value')); 　　 iNode.insertBefore (iXml.createElement('test4'), iChild); 　　 iNode2 := iNode.cloneNode (True); 　　 iRoot.appendChild (iNode2); 　　 iAttribute := iXml.createAttribute ('color'); 　　 iAttribute.nodeValue := 'red'; 　　 iNode2.attributes.setNamedItem (iAttribute); 　　 Memo1.Lines.Text := FormatXMLData (XMLDocument1.XML.Text); 　　end; 　　你还可以点击源码下载按钮，下载本示例完整源码。

delphi 使用nativeXML创建和解析xml文件

在Delphi中创建简单XMl文件以及读取XML子节点下所有属性的方法

多个delphi读写处理xml的示例文件..rar

Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：　　procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent); 　　var 　　 nProps, i: Integer; 　　 PropList: PPropList; 　　 Value: Variant; 　　 newNode: IXmlNode; 　　begin 　　 nProps := GetTypeData (Comp.ClassInfo)^.PropCount; 　　 GetMem (PropList, nProps * SizeOf(Pointer)); 　　 try 　　 GetPropInfos (Comp.ClassInfo, PropList); 　　 for i := 0 to nProps - 1 do 　　 begin 　　 Value := GetPropValue (Comp, PropList [i].Name); 　　 NewNode := iNode.AddChild(PropList [i].Name); 　　 NewNode.Text := Value; 　　 if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then 　　 if TObject (Integer(Value)) is TComponent then 　　 NewNode.Text := TComponent (Integer(Value)).Name 　　 else 　　 ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent); 　　 end; 　　 finally 　　 FreeMem (PropList); 　　 end; 　　end;

语言基础/算法/系统设计

16,746

社区成员

33,239

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章