紧急求助！TXMLDocument控件不能识别中文？(50分)

放一个TXMLDocument在form上。
procedure TForm1.Button1Click(Sender: TObject);
var
aNode, aValueNode: IXMLNode;
wStr: widestring;
begin
//+++++++++++++++++++++++++++++++++++++
//用TXmlDocument实现创建一个Xml文档
with XMLDocument1.XMLdo
begin
Add('<?xml version=&quot;1.0&quot;
standalone=&quot;yes&quot;?>');
Add('<DFW>');
Add('<savenight>');
[red]Add('<name>savenight</name>');[/red]
Add('<sex>man</sex>');
Add('</savenight>');
Add('</DFW>');
end;
XMLDocument1.Active := true;
XMLDocument1.SaveToFile('d:/tmp/test.xml');
英文都能顺利通过，如果将[red]Add('<name>savenight</name>');[/red]改成
[red]Add('<name>中文</name>');[/red]
程序就会报错，请各位兄弟帮帮忙，在线等待！！

问题已解决！

帮你顶了

你应该将你的解决方案写出来。[!]

<?xml version=&quot;1.0&quot;
standalone=&quot;yes&quot;?>
改为
<?xml version=&quot;1.0&quot;
encoding=&quot;gb2123&quot;?>
就OK的啦。

对呀，平时用XML文档的时候，也要记得开头写上GB2312

<?xml version=&quot;1.0&quot;
encoding=&quot;utf-8&quot;?>