谁能帮我解决这个问题?(100分)

我要把ADOTABLE的内容导出到XML文档中,下面是我的代码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, DB, ADODB,MSXML_TLB,ComObj;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
Button1: TButton;
Button2: TButton;
XMLDocument1: TXMLDocument;
ADOTable1: TADOTable;
procedure Button1Click(Sender: TObject);
private
function makexml(adotable:Tadotable):integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
datalist:tstringlist;
do
c:IXMLDOMDocument;
root,child,child1:IXMLDomElement;
text1,text2:IXMLDOMText;
nlist:IXMLDOMNodelist;
dataRecord:String;
implementation
function TForm1.makexml(adotable:Tadotable):integer;
var
i:integer;
xml:string;
begin
try
ADOTable1.Close;
ADOTable1.Open;
xml:=adotable1.TableName;
do
c:=createoleobject('microsoft.XMLDOM')as IXMLDomDocument;
//这里提示没有定义函数ＣＲＥＡＴＥＯＬＥＯＢＪＥＣＴ
root:=doc.createElement(xml);
do
c.appendChild(root);
while not adotable1.Eof do
begin
child:=doc.createElement('Records');
root.appendChild(child);
for i:=0 to adotable1.FieldCount-1do
begin
child1:=doc.createElement(adotable1.Fields.FieldName);
child1.appendChild(doc.createTextNode(adotable1.Fields.Value));
child.appendChild(child1);
end;
adotable1.Next;
end;
do
c.save(xml+'.xml');
Result:=1;
except
on e:Exceptiondo
Result:=-1;
end;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if makexml(adotable1)=1 then
showmessage('xml created')
else
showmessage('error');
end;
end.
编译不能通过,提示如下:
project1.exe raised excepiton class EReadError with message'property
DOMVendorDescdo
es not exist'.PROCESS STOPPED.
是什么原因,如何修改啊.

没有人能回答这个问题吗?

message'propertydo
MVendorDescdo
es not exist'
版本问题么，还是文件没有引用完全，检查一下你的TXMLDocument文件或者IXMLDocument接口是否包含这个属性或者是个类

参考一个：
TXMLDocument内部结构
http://www.itpower.net.cn/Article/chengxukaifa/bianchengyuyan/Delphi/shiyong/20060613160951_92353.html

不是没人能回答，我前段时间才写了一个xml的导出程序；
只是不想看你的代码而已；
首先你要搞清楚你想导出成什么样的结构；再导，
因为DataSet类也提供了导出xml的功能；
而且你的标识好象也没写；

清新空气,也许你很厉害,但是不看我的问题你就回答是否草率了些,能帮忙的话给个解释什么的啊!

我不厉害，我只是个菜鸟！
我只是觉得“有人能回答这个问题吗?”这句话太看不过去而已；
你可以加我QQ，我告诉你我所知吧！

你的问题应该是你在窗体里加载了XMLDOCUMENT组件且属性没有设置完全造成的,你再看看.

谢谢楼上的,正如你所说,属性未设置完全,并且也不需要这个组件.