<?xml version="1.0" encoding="GB2312"?>
<programs>
  <program-type>one</program-type>
  <program-name>qq.exe</program-name>
  <program-type>two</program-type>
  <program-name>word.exe</program-name>
</programs>xml文件如上  
实现 
(three,delphi32.exe)的添加操作。
(two,word.exe)的删除操作 我是初学者 求代码,尽可能清楚些,先谢谢了

解决方案 »

  1.   

    iNode : IXMLNode;
      try
        XMLDoc.FileName := filename;
        XMLDoc.Active := True;
        iNode:=XMLDoc.DocumentElement;
        while iNode <> nil do
        begin
          iNode := iNode.NextSibling;
        end;
        finally
        XMLDoc.Active := False;
      end;
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Parser: TXMLDocument;
      Node: IXMLNode;
      NewNode: IXMLNode;
    begin
      Parser := TXMLDocument.Create(self);
      try
        Parser.LoadFromFile(fileName);
        Node := Parser.DocumentElement;  //programs节点
        //添加 three 节点
        NewNode := Node.AddChild('program-type');
        NewNode.Text := 'three';
        //添加 delphi32.exe节点
        NewNode := Node.AddChild('program-name');
        NewNode.Text := 'delphi32.exe';    //删除 two, word.exe节点
        Node.ChildNodes.Delete('two');
        Node.ChildNodes.Delete('word.exe');
      finally
        Parser.Free;
      end;
    end;