NativeXml (3)：保存

uses　NativeXML;　
　
var　
　　xml:　TNativeXML;　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
begin　
　　xml　:=　TNativeXML.CreateName('MyRoot'　);　
　　ChDir('C:\Temp');　
end;　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　　xml.SaveToFile('Test_Default.XML');　　//encoding="UTF-8"　
　
　　XML.ExternalEncoding　:=　seUTF8;　
　　xml.SaveToFile('Test_UTF8.XML');　　　　//encoding="utf-8"　
　
　　XML.ExternalEncoding　:=　seAnsi;　
　　xml.SaveToFile('Test_Ansi.XML');　　　　//encoding="Windows-1250"　
　
　　XML.ExternalEncoding　:=　seUTF16BE;　
　　xml.SaveToFile('Test_UTF16BE.XML');　　//encoding="unicodeFFFE"　
　
　　XML.ExternalEncoding　:=　seUTF16LE;　
　　xml.SaveToFile('Test_UTF16LE.XML');　　//encoding="utf-16"　
　
　　XML.ExternalEncoding　:=　seUTF16LE;　
　　XML.EncodingString　:=　'UTF-16';　
　　xml.SaveToFile('Test_UTF16.XML');　　　　//encoding="UTF-16"　
end;