zoukankan      html  css  js  c++  java
  • NativeXml (8):其它添加


    uses NativeXml;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      xml: TNativeXml;
      node: TXmlNode;
    begin
      xml := TNativeXml.CreateName('List');
      xml.XmlFormat := xfReadable;
    
      node := xml.NodeNewTextType('注释名称', '注释内容', xeComment);
      xml.Root.NodeAdd(node);
    
      node := xml.NodeNewTextType('item', '张三', xeElement);
      xml.Root.NodeAdd(node);
    
      Memo1.Text := xml.WriteToString;
      xml.Free;
    end;
    {***************************************
    <?xml version="1.0" encoding="UTF-8"?>
    <List><!--注释内容-->
    	<item>张三</item>
    </List>
    *****************************************}
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      xml: TNativeXml;
      node: TXmlNode;
    begin
      xml := TNativeXml.CreateName('List');
      xml.XmlFormat := xfReadable;
    
      node := xml.NodeNewTextType('item', '张三', xeElement, [xml.AttrText('ID', '1'), xml.AttrInt('age', 11)]);
      xml.Root.NodeAdd(node);
    
      Memo1.Text := xml.WriteToString;
      xml.Free;
    end;
    {***************************************
    <?xml version="1.0" encoding="UTF-8"?>
    <List>
    	<item ID="1" age="11">张三</item>
    </List>
    *****************************************}
    
    procedure TForm1.Button3Click(Sender: TObject);
    var
      xml: TNativeXml;
      node: TXmlNode;
    begin
      xml := TNativeXml.CreateName('List');
      xml.XmlFormat := xfReadable;
    
      node := xml.NodeNewTextTypeAttr('item', '', xeElement, [xml.AttrText('ID', '1')], [xml.NodeNewText('name', '张三'), xml.NodeNewInt('age', 11)]);
      xml.Root.NodeAdd(node);
    
      Memo1.Text := xml.WriteToString;
      xml.Free;
    end;
    {***************************************
    <?xml version="1.0" encoding="UTF-8"?>
    <List>
    	<item ID="1">
    		<name>张三</name>
    		<age>11</age>
    	</item>
    </List>
    *****************************************}
    
    procedure TForm1.Button4Click(Sender: TObject);
    var
      xml: TNativeXml;
      node: TXmlNode;
    begin
      xml := TNativeXml.CreateName('List');
      xml.XmlFormat := xfReadable;
    
      node := xml.Root.NodeNew('Data1');
      node.NodeAdd(xml.NodeNewTextType('DataName', 'XXXXXXXXXXXX', xeCData));
    
      Memo1.Text := xml.WriteToString;
      xml.Free;
    end;
    {***************************************
    <?xml version="1.0" encoding="UTF-8"?>
    <List>
    	<Data1><![CDATA[XXXXXXXXXXXX]]></Data1>
    </List>
    *****************************************}
    
    procedure TForm1.Button5Click(Sender: TObject);
    var
      xml: TNativeXml;
    begin
      xml := TNativeXml.CreateName('List');
      xml.XmlFormat := xfReadable;
    
      xml.Root.NodeAdd(xml.NodeNewTextType('aaa', 'AAAAAAA', xeElement));
      xml.Root.NodeAdd(xml.NodeNewTextType('bbb', 'BBBBBBB', xeAttribute));
      xml.Root.NodeAdd(xml.NodeNewTextType('ccc', 'CCCCCCC', xeComment));
      xml.Root.NodeAdd(xml.NodeNewTextType('ddd', 'DDDDDDD', xeCData));
      xml.Root.NodeAdd(xml.NodeNewTextType('eee', 'EEEEEEE', xeCondSection));
      xml.Root.NodeAdd(xml.NodeNewTextType('fff', 'FFFFFFF', xeStylesheet));
      xml.Root.NodeAdd(xml.NodeNewTextType('ggg', 'GGGGGGG', xeDocType));
      xml.Root.NodeAdd(xml.NodeNewTextType('hhh', 'HHHHHHH', xeDtdElement));
      xml.Root.NodeAdd(xml.NodeNewTextType('iii', 'IIIIIII', xeDtdAttList));
      xml.Root.NodeAdd(xml.NodeNewTextType('jjj', 'JJJJJJJ', xeDtdEntity));
      xml.Root.NodeAdd(xml.NodeNewTextType('kkk', 'KKKKKKK', xeDtdNotation));
      xml.Root.NodeAdd(xml.NodeNewTextType('lll', 'LLLLLLL', xeInstruction));
      xml.Root.NodeAdd(xml.NodeNewTextType('mmm', 'MMMMMMM', xeCharData));
      xml.Root.NodeAdd(xml.NodeNewTextType('nnn', 'NNNNNNN', xeWhiteSpace));
      xml.Root.NodeAdd(xml.NodeNewTextType('ooo', 'OOOOOOO', xeQuotedText));
    
      Memo1.Text := xml.WriteToString;
      xml.Free;
    end;
    {***************************************
    <?xml version="1.0" encoding="UTF-8"?>
    <List bbb="BBBBBBB"NNNNNNN>
    	<aaa>AAAAAAA</aaa>
    	<!--CCCCCCC-->
    	<![CDATA[DDDDDDD]]>
    	<!--EEEEEEE-->
    		<?xml-stylesheetFFFFFFF?>
    
     [
    GGGGGGG]>
    <!ELEMENT hhh HHHHHHH>
    <!ATTLIST iii IIIIIII>
    <!ENTITY jjj JJJJJJJ>
    <!NOTATION kkk KKKKKKK>
    		<?LLLLLLL?>
    
    	MMMMMMM
    	"OOOOOOO"
    </List>
    *****************************************}
    

  • 相关阅读:
    ISCC 2018——write up
    图的存储结构(十字链表、邻接多重表、边集数组)
    图的存储结构
    树梅派(Raspberry Pi 3b)安装kali linux 2.0
    树梅派3B kali2.0 启用SSH进行远程登录
    VS+VAssistX自动添加注释
    libtiff库使用
    word采用尾注进行参考文献排版的一些问题
    vs2008安装opencv2.4.6
    Altera CYCLONE III FPGA BGA布线
  • 原文地址:https://www.cnblogs.com/del/p/1995316.html
Copyright © 2011-2022 走看看