delphi笔记之XML操作

创建xml可用XMLDocument.xml.Add(‘xml内容’)

newnode:=node.AddChlide(‘节点名’) //增加节点，返回新的节点

Cnode,pnode:IXMLNode;

pnode:=XMLDocument.addChilde(‘节点名’); //addChilde后返回生成的节点，第一次生成的pnode是根节点

pnode.setAttribute(‘属性名’,’属性值’);  //增加节点的属性

添加叶子子节点

Cnode=pnode.addChilde(‘节点名’);

Cnode.Text:=’叶子节点的文本值’;

保存xml文档用XMLDocument.saveToFile(‘路径及文件名’);

读取xml

读取xml文件用xmlDocument.LoadFormFile(‘文件路径’);

nodeList:IXMLNodeList

Node:=xmlDocument.DocumentElement  //获得xml文件的根节点

nodeList:=node.ChildeNodes;  //获得node节点的所有子节点列表

count:=nodeList.Count;//获得列表中节点的总数

node:=nodeList.first:  //获得列表中第一个子节点

node:=nodeList.last:  //获得列表中最后一个子节点

node:=node.ChildeNode[索引值]  //获得node索引值为’[]’中值的子节点

node:=node.PreviousSibling;  //获得节点的上一个节点

node:=node.NextSibling；  //获得节点的下一个节点

node:=node.ParentNode;  //获得节点的父节点

node.Text //获得节点的文本值

node.NodeName  //节点名

node.NodeValue //节点值

 

获得节点属性与获得子节点的方法类似

Node.ArrtibuteNodes //获得node的属性列表

Node.ArrtibuteNodes.Count; //获得属性总数

Node.ArrtibuteNodes[索引值] //获得某个属性

Node.ArrtibuteNodes[索引值].Text  //读取某个属性的文本

node.AttributeNodes[索引值].NodeName   //属性名

node.AttributeNodes[索引值].NodeValues //属性值

 

其他操作：

删除节点：

  nodeList := XMLDocument1.DocumentElement.ChildNodes;

  nodeList.Delete(nodeList.Count-1); //删除最后一条

 

判断是否有子节点

Node.HasChlideNodes  //返回值为Boolean

 

判断是否具有 Text 属性

Node.IsTextElement   //返回值为Boolean

 

//通过hasChildeNode和IsTextElement可以判断node是支节点还是叶子节点，支节点的HasChlideNodes为true ,IsTextElement为false；叶子节点的IsTextElement为true；判断是否文本用node.NodeName='#text'(文本也可看做是一个节点)；判断空节点用  (not node.HasChlideNodes) and (not node.IsTextElement

 

格式化xml：

FormatXMLData(xmlDocument.XML.Text) 

 

如果要想用浏览器读取xml时要用到ShellAPI:

shellExecute(Handle,’open’,’Explorer.exe’,’xml文件路径’, nil, SW_SHOWNORMAL);