[NativeXml (2)：对象建立]

相关方法与属性： TNativeXml.Create(...); TNativeXml.CreateEx(...); TNativeXml.CreateName(...);

Obj.New; Obj.ReadFromString(...);

Obj.VersionString; Obj.EncodingString;

测试代码：

xxxxxxxxxx
uses NativeXml; //!

const xmlFile = 'C:\Temp\xml_test_files\basic.xml'; //测试文件

{使用 Create 建立时可指定属主并随属主一同释放}
procedure TForm1.Button1Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  xml := TNativeXml.Create(Self);
//  xml := TNativeXml.Create(nil);
//  System.ReportMemoryLeaksOnShutdown := True;
//  xml.Free;
end;

{CreateEx}
procedure TForm1.Button2Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  xml := TNativeXml.CreateEx(False, //是否建立 Declaration 对象, 如：
                             True,  //是否建立跟节点
                             nil    //指定属主
                             );
  ShowMessageFmt('version: %s', [xml.VersionString]);   //显示 XML 版本
  ShowMessageFmt('encoding: %s', [xml.EncodingString]); //显示 XML 编码
  xml.Free;

  xml := TNativeXml.CreateEx(True, true, nil);
  ShowMessageFmt('version: %s', [xml.VersionString]);   //1.0
  ShowMessageFmt('encoding: %s', [xml.EncodingString]); //UTF-8
  xml.Free;
end;

{使用 CreateName 建立可直接指定根节点的名称}
procedure TForm1.Button3Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  xml := TNativeXml.CreateName('MyRoot');
  ShowMessage(xml.Root.Name); //MyRoot
  xml.Free;
end;

{使用 New 方法清空并重新构建}
procedure TForm1.Button4Click(Sender: TObject);
var
  xml: TNativeXml;
begin
  xml := TNativeXml.Create(nil);
  xml.LoadFromFile(xmlFile);
  ShowMessage(xml.WriteToString);
  xml.New;
//  xml.Clear;
  ShowMessage(xml.WriteToString);
  xml.Free;
end;

{使用 ReadFromString 从文本读入}
procedure TForm1.Button5Click(Sender: TObject);
const
  str = '<?xml version="1.0"?><Root><Items><item>1</item><item>2</item></Items></Root>';
var
  xml: TNativeXml;
begin
  xml := TNativeXml.Create(nil);
  xml.ReadFromString(str);
  xml.XmlFormat := xfReadable;
  Memo1.Text := xml.WriteToString;
end;