请问在delphi中怎么将<?xml version="1.0" encoding="GB2312"?>添加

请问在delphi中怎么将&lt;?xml version=&quot;1.0&quot; encoding=&quot;GB2312&quot;?&gt;添加到程序中阿？？？ ( 积分: 100 )<br />xmlname := 'oocmanifest'+table.Fields[0].AsString;
xmldoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
root := xmldoc.createElement(xmlname);
xmldoc.appendchild(root);
child:= xmldoc.createElement('Records');
root.appendchild(child);
现在程序生成的xml的格式如下：
&lt;oocmanifest104&gt;
&lt;Records&gt;
&lt;序号&gt;104&lt;/序号&gt;
&lt;专业&gt;104&lt;/专业&gt;
&lt;层次&gt;104&lt;/层次&gt;
&lt;课程名称&gt;104&lt;/课程名称&gt;
&lt;课时&gt;8&lt;/课时&gt;
&lt;课件类型&gt;8&lt;/课件类型&gt;
&lt;/Records&gt;
&lt;/oocmanifest104&gt;
我要在要生成的xml文件头中加上&lt;?xml version=&quot;1.0&quot; encoding=&quot;GB2312&quot;?&gt;，这个该怎么实现阿？？多谢大虾们了。

xmlname := 'oocmanifest'+table.Fields[0].AsString;
xmldoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
root := xmldoc.createElement(xmlname);
xmldoc.appendchild(root);
child:= xmldoc.createElement('Records');
root.appendchild(child);
现在程序生成的xml的格式如下：
&lt;oocmanifest104&gt;
&lt;Records&gt;
&lt;序号&gt;104&lt;/序号&gt;
&lt;专业&gt;104&lt;/专业&gt;
&lt;层次&gt;104&lt;/层次&gt;
&lt;课程名称&gt;104&lt;/课程名称&gt;
&lt;课时&gt;8&lt;/课时&gt;
&lt;课件类型&gt;8&lt;/课件类型&gt;
&lt;/Records&gt;
&lt;/oocmanifest104&gt;
我要在要生成的xml文件头中加上&lt;?xml version=&quot;1.0&quot; encoding=&quot;GB2312&quot;?&gt;，这个该怎么实现阿？？多谢大虾们了。

直接把字串相加
xml:='&lt;?xml version=&quot;1.0&quot; encoding=&quot;GB2312&quot;?&gt;'+#13+xmldoc.xml

xmldoc.xml:='&lt;?xml version=&quot;1.0&quot; encoding=&quot;GB2312&quot;?&gt;'+#13#10+xmldoc.xml;
xmldoc.Save('xxxx'+'.xml');

这样看看

xmlname1 := 'oocmanifest'+table.Fields[0].AsString;
XmlName:=DirListBox.directory+'/'+xmlname1+'.xml';
WriteXml(xmlname,'&lt;?xml version=&quot;1.0&quot; encoding=&quot;gb2312&quot; ?&gt;');
WriteXml(xmlname,'&lt;'+xmlname1+'&gt;');
WriteXml(xmlname,'&lt;Records&gt;');
for i:=0 to table.FieldCount-1 do
begin
//增加第二层
begin
if Table.Fields.AsString ='' then
temp :='null' //Put a default string
else
temp := table.Fields.AsString;
end;

WriteXml(xmlname,'&lt;'+table.Fields.FieldName+'&gt;'+temp+'&lt;/'+table.Fields.FieldName+'&gt;');
end;
WriteXml(xmlname,'&lt;/Records&gt;');
WriteXml(xmlname,'&lt;/'+xmlname1+'&gt;');

多人接受答案了。