NativeXml (2)：對象建立

相關方法與屬性：
TNativeXml.Create(...);
TNativeXml.CreateEx(...);
TNativeXml.CreateName(...);

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

Obj.VersionString;
Obj.EncodingString;

測試代碼：

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;