delphi如何在XML文件里增加一个节点(100分)

delphi如何在XML文件里增加一个节点

uses XMLDoc;

var
PNode,CNode,AttrNode,TempNode :IXMLNode;
DXml: TXMLDocument;
begin
DXml:= TXMLDocument.Create(self);
try
DXml.Active := false;
DXml.Active := true;
DXml.XML.Clear;
Dxml.Encoding := 'GB2312'; //utf-8
Pnode := Dxml.AddChild('Report');
//Report name
AttrNode := Dxml.CreateNode('Name',ntAttribute);
AttrNode.Text := 'aaaa';
Pnode.AttributeNodes.Add(AttrNode);
finally
FreeAndNil(DXml);
end;
end;

上面是我从我代码中摘抄的一部分。

看文档就会的

var
Root : IXMLNode; //指向XML根结点
Parent_Node: IXMLNode; //指向学生结点
Child_node : IXMLNode; //指向学生的子结点
begin
OutXMLDoc.Active := true; //激活OutXMLDoc,自动初始化空的XML文档
OutXMLDoc.Encoding := 'GB2312'; //设置字符集
Root := OutXMLDoc.AddChild('建根结点');
Parent_Node := Root.AddChild('学生'); //根结点后添加一个学生结点
Parent_Node.Attributes['性别'] := '男'; //给学生结点设置性别属性
Child_Node := Parent_Node.AddChild('姓名'); //学生结点后添加一个姓名结点
Child_Node.Text := '阿阿'; //设置姓名的文本值
Child_Node := Parent_Node.AddChild('年龄'); //此行起后四行与前两行类似
Child_Node.Text := IntToStr(9);
Child_Node := Parent_Node.AddChild('电话');
Child_Node.Text := '888';

Parent_Node := Root.AddChild('学生'); //根结点后添加一个学生结点
Parent_Node.Attributes['性别'] := '女'; //给学生结点设置性别属性
Child_Node := Parent_Node.AddChild('姓名'); //学生结点后添加一个姓名结点
Child_Node.Text := '不必'; //设置姓名的文本值
Child_Node := Parent_Node.AddChild('年龄'); //此行起后四行与前两行类似
Child_Node.Text := IntToStr(99);
Child_Node := Parent_Node.AddChild('电话');
Child_Node.Text := '999';
OutXMLDoc.SaveToFile('Output.xml'); //把组织好的XML文档存于Output.xml文件中
OutXMLDoc.Active := false; //钝化（关闭）OutXMLDoc