delphi xml 增删改查例子
基本编程过程过程代码读入XML文件并激活文档xmldoc1。LoadFromFile('test。xml');xmldoc1。Active:=true;创建节点实体 定位节点SearchNode:=xmldoc1。 Node;//定位到根SearchNode:=SearchNode。ChildNodes。Nodes[1];//第2层SearchNode:=SearchNode。ChildNodes。Nodes[0];//第1个节点添加子节点StNode为已定位的父节点,插入子实体节点后,指向子实体。 //记录Attribute为节点内参数AttrNode为子实体节点的属性节点//字段S...全部
基本编程过程过程代码读入XML文件并激活文档xmldoc1。LoadFromFile('test。xml');xmldoc1。Active:=true;创建节点实体 定位节点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');。收起