怎么用Nativexml创建新的节点？？？

Question

如题

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses NativeXml;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  vXML:TNativeXml;
  vNode,vChildNode:TXmlNode;
begin
  vXML := TNativeXml.Create;
  try
    vXML.Root.Name := 'TestRoot';    //新增一个节点
    vNode := vXML.Root.NodeNew('FirstNode');
    //第一个节点的值
    vNode.ValueAsString := 'Test';
    //第一个节点增加一个属性为Name，值为harlan
    vNode.AttributeAdd('Name','harlan');
    //为第一个节点增加一个子节点
    //具体的XML结构以此类推
    vChildNode := vNode.NodeNew('ChildNode');
    vXML.SaveToFile('文件路径');
  finally
    vXML.Free;
  end;
end;end.