delphi笔记之nativeXml
使用 CreateName 建立可直接指定根节点的名称
var
XmlDoc: TnativeXml;
Node:TxmlNode;
Begin
XmlDoc := TNativeXml.CreateName('Data'); //创建根节点的语法
XmlDoc.XmlFormat := xfReadable;
添加节点有以下几种方法:
Node：=xmlDoc.Root.NodeNew(‘BasicDataNo’);
Node.value:=’1’;
XmlDoc.Root.NodeNew(‘name’).value:=’sam’;
xmlDoc.Root.WriteString(‘sex’,’male);
xmlDoc.Root.NodeNew('Address').WriteString('City', '广州');//<Address><City>广州</City></Address>
还有可以创建相应类型的方法：WriteFloat()、WriteDateTime()、WriteHex()、WriteBool()...
Node:=xmlDoc.NodeNew(‘item’);
Node.writeInteger(‘age’,23);
xmlDoc.Root.NodeAdd(node);
XmlDoc.NodeNew('BasicData', [
XmlDoc.NodeNewText('FirstName', 'John'),
XmlDoc.NodeNewText('LastName', 'Doe'),
XmlDoc.NodeNewInt('Age', 26)
])
添加属性:
node := xml.Root.NodeNew('item');
node.AttributeAdd('ID', '1');
node.AttributeAdd('age', '11');
node.Value := '张三';
node := xml.NodeNewTextAttr('item', '张三', [xml.AttrText('ID', '1'), xml.AttrInt('age', 11)]);
xml.Root.NodeAdd(node);
添加注释:
node := xml.NodeNewTextType('注释名称', '注释内容', xeComment);
xml.Root.NodeAdd(node);
添加CDATA内容
node.NodeAdd(xml.NodeNewTextType('DataName', 'XXXXXXXXXXXX', xeCData));
NativeXml 读取
NativeXml打开xml文本
Var
Xml:TnativeXml;
Begin
Xml:=TnativeXml.Create(nil);
Xml.loadformFile(‘xml_file_path’);
End;
读取declaration
declaration: TsdDeclaration;
declaration := xml.RootNodes[0] as TsdDeclaration;
ShowMessageFmt('%s, %s', [declaration.Version, declaration.Encoding]); //1.0, UTF-8
xml.RootNodes[1]代表根节点,与xml.Root相同
xml.Root.Name:根节点名称
xml.Root.NodeCount:根节点子节点的总数
xml.Root.WriteToString读取根节点下的所有内容
xml.Root[0]:第一个子节点
节点信息的读取
node:TxmlNode;
node:=xml.Root[0];
node.name
node.value
node.Attributes[0].Name;
node.Attributes[0].Value;
node.Attributes[0].WriteToString
node.AttributeByName['ID'].Value
node.AttributeValueByName['ID']
node := xml.Root;
ShowMessage(node.ReadString('item')); //张三
ShowMessage(node.FindNode('item').Value); //张三
ShowMessage(node.NodeByName('item').Value); //张三
//node.NodesByName(); 用法同 FindNodes
nodeList := TsdNodeList.Create(False);
node.FindNodes('item', nodeList);
for i := 0 to nodeList.Count - 1 do
begin
ShowMessage(nodeList[i].Value); //张三/李四/王五
end;
nodeList.Free;
//
for i := 0 to node.NodeCount - 1 do
begin
ShowMessage(node[i].Value); //张三/李四/王五
end;
其他操作:
插入、删除
xml.Root.NodeInsert(1, xml.NodeNewText('item', '赵六'));
xml.Root.NodeDelete(xml.Root.NodeCount - 1);
xml.Root.NodeRemove(xml.Root[0]);
交换
xml.Root.NodeExchange(0, 1);
提取:
node := xml.Root.NodeExtract(xml.Root[1]);
搜索与创建
node := xml.Root.NodeFindOrCreate('item');
Clear操作
node := xml.Root[0];
node.Clear; <item/> //清除节点内容
xml.Root.DeleteEmptyNodes; //清除空节点
xml.Root.Clear; <list/> //清除Root下的内容
xml.Clear; 将xml内容清除