NativeXml (7)：添加属性-白红宇

NativeXml (7)：添加属性

阅读量：6258 次

发布时间：2019-06-22

本文共 4767 字，大约阅读时间需要 15 分钟。

uses NativeXml;  procedure TForm1.Button1Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    node := xml.Root.NodeNew('item');   node.AttributeAdd('ID', '1');   node.AttributeAdd('age', '11');   node.Value := '张三';    with xml.Root.NodeNew('item') do   begin     AttributeAdd('ID', '2');     AttributeAdd('age', '22');     Value := '李四';   end;    with xml.Root.NodeNew('item') do   begin     AttributeAdd('ID', '3');     AttributeAdd('age', '33');     Value := '王五';   end;    Memo1.Text := xml.WriteToString;   xml.Free; end; {*************************************** 
     
     	
     
      张三
      	
     
      李四
      	
     
      王五
      
     *****************************************}  procedure TForm1.Button2Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode;   attr1,attr2: TsdAttribute; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    attr1 := TsdAttribute.Create(xml);   attr1.Name := 'ID';   attr1.Value := '1';   attr2 := TsdAttribute.Create(xml);   attr2.Name := 'age';   attr2.ValueAsInteger := 11;   node := xml.Root.NodeNew('item');   node.AttributeAdd(attr1);   node.AttributeAdd(attr2);   node.Value := '张三';    attr1 := TsdAttribute.CreateName(xml, 'ID');   attr1.Value := '2';   attr2 := TsdAttribute.CreateNameValue(xml, 'age', '22');   node := xml.Root.NodeNew('item');   node.AttributesAdd([attr1, attr2]);   node.Value := '李四';    node := xml.Root.NodeNew('item');   node.AttributesAdd([TsdAttribute.CreateNameValue(xml, 'ID', '3'), TsdAttribute.CreateNameValue(xml, 'age', '33')]);   node.Value := '王五';    Memo1.Text := xml.WriteToString;   xml.Free; end; {结果同上}  procedure TForm1.Button3Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode;   attr1,attr2: TsdAttribute; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    attr1 := xml.AttrText('ID', '1');   attr2 := xml.AttrInt('age', 11);   node := xml.Root.NodeNew('item');   node.AttributesAdd([attr1, attr2]);   node.Value := '张三';    node := xml.Root.NodeNew('item');   node.AttributesAdd([xml.AttrText('ID', '2'), xml.AttrInt('age', 22)]);   node.Value := '李四';    with xml.Root.NodeNew('item') do begin     AttributesAdd([xml.AttrText('ID', '3'), xml.AttrInt('age', 33)]);     Value := '王五';   end;    Memo1.Text := xml.WriteToString;   xml.Free; end; {结果同上}  procedure TForm1.Button4Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    node := xml.NodeNewTextAttr('item', '张三', [xml.AttrText('ID', '1'), xml.AttrInt('age', 11)]);   xml.Root.NodeAdd(node);    node := xml.NodeNewTextAttr('item', '李四', [xml.AttrText('ID', '2'), xml.AttrInt('age', 22)]);   xml.Root.NodeAdd(node);    node := xml.NodeNewTextAttr('item', '王五', [xml.AttrText('ID', '3'), xml.AttrInt('age', 33)]);   xml.Root.NodeAdd(node);    Memo1.Text := xml.WriteToString;   xml.Free; end; {结果同上}  procedure TForm1.Button5Click(Sender: TObject); var   xml: TNativeXml; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    xml.Root.NodesAdd([     xml.NodeNewTextAttr('item', '张三', [xml.AttrText('ID', '1'), xml.AttrInt('age', 11)]),     xml.NodeNewTextAttr('item', '李四', [xml.AttrText('ID', '2'), xml.AttrInt('age', 22)]),     xml.NodeNewTextAttr('item', '王五', [xml.AttrText('ID', '3'), xml.AttrInt('age', 33)])   ]);    Memo1.Text := xml.WriteToString;   xml.Free; end; {结果同上}  procedure TForm1.Button6Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    node := xml.NodeNewAttr('item', [xml.AttrText('name', '张三'), xml.AttrInt('age', 11)]);   xml.Root.NodeAdd(node);    node := xml.NodeNewAttr('item', [xml.AttrText('name', '李四'), xml.AttrInt('age', 22)]);   xml.Root.NodeAdd(node);    node := xml.NodeNewAttr('item', [xml.AttrText('name', '王五'), xml.AttrInt('age', 33)]);   xml.Root.NodeAdd(node);    Memo1.Text := xml.WriteToString;   xml.Free; end; {*************************************** 
     
     	
      	
      	
      
     *****************************************}  procedure TForm1.Button7Click(Sender: TObject); var   xml: TNativeXml;   node: TXmlNode; begin   xml := TNativeXml.CreateName('List');   xml.XmlFormat := xfReadable;    xml.Root.NodesAdd([     xml.NodeNewAttr('item', [xml.AttrText('name', '张三'), xml.AttrInt('age', 11)]),     xml.NodeNewAttr('item', [xml.AttrText('name', '李四'), xml.AttrInt('age', 22)]),     xml.NodeNewAttr('item', [xml.AttrText('name', '王五'), xml.AttrInt('age', 33)])   ]);    Memo1.Text := xml.WriteToString;   xml.Free; end; {结果同上}