delphi笔记之nativeXml 转

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