delphi对xml操作

dong_yanyu 2010-07-08 03:26:19

<username>wh2</username>
xml里怎么获取那个wh2然后修改成别的值

...全文

47 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

cactus123456 2010-07-08

打赏
举报

回复

http://cactusprogram.appspot.com/category/xml

shuaialang 2010-07-08

打赏
举报

回复



procedure TForm1.FormCreate(Sender: TObject);

begin

XMLDocument1.LoadFromFile('test.xml');

memo1.Lines:=XMLDocument1.XML;

end;



ShowMessage(XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes['username'].Text); 



//节点自己注意



XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes['username'].Text:='XXX';

//设置

delphi操作xml中的结点、元素、属性等

delphi对XML基本操作,压缩包中有源代码及可执行程序

用Delphi编写的，对XML文件的创建、增、删、改、查等操作。

delphi操作xml文件的一个示例，对初学者来说起到一个指导作用，个人觉得还不错，放上来，有这方面需要的朋友可以下载下来研究一下。

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; 　　你还可以点击源码下载按钮，下载本示例完整源码。

5,392

社区成员

262,731

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章