请熟悉XML和Clientdataset之间读写的朋友紧急帮忙！！！0755-83679289(100分)

小弟今天一定要完成XML文件的读写，但是在写文件时出现问题一时解决不了。请指教。
请直接打电话给我，我在电话机旁等候。
救命之恩，定当重谢

不会这么严重吧
procedure TfrmXML.Button1Click(Sender: TObject);
begin
XMLDocument1.Active:=true;
Memo1.Lines.Clear;
n1:=XMLDocument1.DocumentElement;
if n1=Nil then
exit;
Memo1.Lines.Add(n1.NodeName);
n2:=n1.ChildNodes.Last;
if N2=Nil then
exit;
Memo1.Lines.Add(n2.NodeName);
n3:=n2.ChildNodes.First;
while N3<>Nildo
begin
Memo1.Lines.Add(N3.Attributes['OrderNo']
+N3.Attributes['ItemNo']+' '
+N3.Attributes['PartNo']+' '
+N3.Attributes['Qty']+' '
+N3.Attributes['Discount']);
N3:=n3.NextSibling;
end;
XMLDocument1.Active:=false;
end;

procedure TfrmXML.Button2Click(Sender: TObject);
var
i: Integer;
begin
XMLDocument2.Active:=True;
XMLDOcument2.Encoding:='GB2312';
n1:=XMLDocument2.AddChild('单订项数据');
for i:=3 to Memo1.Lines.Countdo
N1.AddChild('X'+IntToStr(i));
XMLDocument2.SaveToFile('d:/output.xml');
XMLDocument2.Active:=false;
end;

不是这个，我指的是DEPHI6下,demos/internet/xmltransprovider/下的那个程序，
换成我的XML，todp.xtr,toxml.xtr就不行了。
哪位有解决办法，请留下电话。

这个问题不是什么很杂的问题，可能你在操作上有一些地方没有搞清楚的。这个软件不是很好使，有时需要用点其它的方法，你打电话给我吧。13005476444

听课