DAY-1
XML文档简单读写方法 CST 2005-07-08 最近参加一个项目需要写XML,因此我开始学习XML在delphi中的编程方法,我将我STEP BY STEP的入门过程记录下来,希望经验丰富的前辈能给我指点,也希望给像我一样有意尝试XML编程的朋友投石问路一下。 本文中使用的一个实例记录一个学生信息的XML文档,具体代码可以访问我的YAHOO公文包 http://cn.f1.pg.briefcase.yahoo.com/iamcst \BLOG附件\XML_DAY_01_BASIC_NODE 也可以电邮我。 基本介绍 本文档描述采用TXMLDocument类读写XML文档。
在控件选项卡的InternetàXMLDOC 节点的类为IXMLNode 基本编程过程 过程 代码 读入XML文件并激活文档 xmldoc1.LoadFromFile(''''test.xml''''); xmldoc1.Active := true; 创建节点实体 var nd:IXMLNode; 定位节点 SearchNode:=xmldoc1.Node; //定位到根 SearchNode:=SearchNode.ChildNodes.Nodes[1]; //第2层 SearchNode:=SearchNode.ChildNodes.Nodes[0]; //第1个节点 添加子节点 StNode为已定位的父节点,插入子实体节点后,指向子实体。//记录 Attribute为节点内参数 AttrNode为子实体节点的属性节点 //字段 StNode:=StNode.AddChild(''''STUDENT''''); StNode.Attributes[''''SID'''']:=’xxxx’; AttrNode:=StNode.AddChild(''''NAME''''); AttrNode.NodeValue :=sName; 删除子节点 TargetNode.ParentNode.ChildNodes.Delete (TargetNode.ParentNode.ChildNodes. IndexOf(TargetNode)); 获得实体节点的属性子节点的值 TargetNode.ChildValues[‘NODENAME’] 定位子节点 遍历根节点,找到实体节点层 根据实体的ATTRIBUTE定位 sNode:=mNode.AttributeNodes.FindNode(''''ID''''); 保存文件 xmldoc1.SaveToFile(''''test.xml''''); 创建文档 采用手动创建一个文本方式的XML源代码文件,可以在DELPHI里用基本文件输出或者复制模板到目标地址,文件内容包括如下代码: <?xml version="1.0" encoding="UTF-8"?> <main> </main> 写入根级选项 使用两个STRINGLIST实体,一个记录选项节点名称,一个记录选项值。 使用如下函数,将STRINGLIST写入根节点。 procedure TFormXMLTester.AddOption(const ANodeList,AValueList:TStringList); var i:integer; rootNode:IXMLNode; [1] [2] [3] 下一页 [Web开发]XML与HTML在语法上的主要区别详解 [系统软件]如何让Expat支持中文XML [VB.NET程序]vb.net 与 XML 的操作 [VB.NET程序]vb.net读写xml(2)--实现datagrid与xml的沟通(原创… [VB.NET程序]vb.net 读写xml方法(1) [VB.NET程序][VB.NET+XML]完成简单程序配置 [VB.NET程序]使用Visual Basic操纵XML文档 [VB.NET程序]XML 简单接口 (SAX2)用Visual Basic 实现的示例 [Delphi程序]Delphi 6 XML映象工具 [Delphi程序]Delphi 6 XML数据绑定
|