delphi 读写nfc 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);