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内容清除