对xml文件的简单操作！送分来了！！！(100分)

我有一个xml的文件：
<?xml version="1.0" encoding="gb2312"?>
<syn title="邓小平理论概论总复习二" author="Goofy" createdate="2003年1月15日" descripe="无
" frames="3" width="400" height="350" teacher="aaa" major="aaa" grade="本科" modalID="0">
<res title="单项选择题_5" time="533" url="img006.GIF" level="1" frame="2" type="other"/>
<res title="多项选择题_1" time="584" url="img007.GIF" level="1" frame="2" type="other"/>
<res title="多项选择题_2" time="614" url="img008.GIF" level="1" frame="2" type="other"/>
<res title="多项选择题_3" time="676" url="img009.GIF" level="1" frame="2" type="other"/>
<res title="判断题" time="731" url="img010.GIF" level="1" frame="2" type="other"/>
<res title="辨析题" time="990" url="img011.GIF" level="1" frame="2" type="other"/>
<res title="简答题" time="1353" url="img012.GIF" level="1" frame="2" type="other"/>
<res title="论述题" time="1355" url="img013.GIF" level="1" frame="2" type="other"/>
</syn>

1.我要对某些“res”节点进行查询，替换某些属性(title,tiem,url...)的值！
2.还要添加新的“res节点”，并设置各种属性的值！
我用的是XMLDocument1控件！
希望能给我源代码！

///关注。

var
TempXNode，TempXNode1 : IxmlNode;
begin
XMLDocument1.LoadFromFile('rt.xml');
TempXNode := XMLDocument1.DocumentElement;
if TempXNode .HasChildNodes then
for i := 0 to TempXNode .ChildNodes.Count - 1 do
begin
//读取
mytitle:= Trim(TempXNode .ChildNodes.Nodes.Attributes['title']);
mytime := Trim(TempXNode .ChildNodes.Nodes.Attributes['time']);
myurl:= Trim(TempXNode.ChildNodes.Nodes.Attributes['url']);
//
//修改
TempXNode.ChildNodes.Nodes.Attributes['title'] := '1221';
TempXNode.ChildNodes.Nodes.Attributes['time'] := '1221'
TempXNode.ChildNodes.Nodes.Attributes['url'] := '121'
//
。。。。。
end;
//增加新的
TempXNode1 ：= TempXNode.AddChild('res');
TempXNode1.Attributes['title'] := '2323';
TempXNode1.Attributes['time'] := '2323';
TempXNode1.Attributes['url'] := '2323';
//
//存盘
XMLDocument1.SaveToFile('文件名.xml');

end;

我试试，稍等。。。

procedure TForm1.Button1Click(Sender: TObject);
begin
//修改现有数据
XMLDocument1.ChildNodes[1].ChildNodes[0].Text := '文本';
XMLDocument1.ChildNodes[1].ChildNodes[0].Attributes['time'] := '3213';
//添加一个节点
with XMLDocument1.ChildNodes[1].AddChild('res') do
begin
Attributes['title'] := '分析题';
Attributes['time'] := '3200';
Attributes['url'] := 'img007.gif';
Attributes['level'] := '1';
Attributes['frame'] := '2';
Attributes['type'] := '其他';
end;
//保存文件
XMLDocument1.XML.SaveToFile(XMLDocument1.FileName);
end;

[] 好象晚了一步。

gz

接受答案了.