Delphi中TXMLDocument导出XML文本如何得到encoding为UTF-8的编码声明

Delphi中TXMLDocument将UTF-8作为默认的字符编码方案，如果你想使用IXMLDocument.node.XML获取XML文本，encoding="UTF-8"的声明就会丢失，除非你使用非UTF-8的编码方案。很多人认为这是TXMLDocument的Bug，但从官方一直未变更的情况看可能是故意为之，那么如果你想得到带有UTF-8字符编码声明的XML文本怎么办呢，方法还是有的，下面的代码就是其中的一种解决方案：

var
  doc: TXMLDocument;
  ss:TStringStream;
begin
  doc.Encoding:='UTF-8';
  ss:=TStringStream.Create;
  doc.SaveToStream(ss);
  Result := ss.DataString;
  ss.Destroy;
end;

这样Result中得到的就是带有UTF-8字符编码方案声明的XML文本串，很好的规避了直接利用属性和方法获取不到的问题。