如题

解决方案 »

  1.   

    uses msxml;var
    xmlDom: IXMLDOMDocument;
    rootNode: IXMLDOMElement;
    sNode: IXMLDOMNode;
    begin
        xmlDom := CoDOMFreeThreadedDocument.Create; 
        try
           if xmlDom.load('a.xml') then
           begin
              rootNode := xmlDom.documentElement;
              sNode := rootNode.selectSingleNode('//name');
              sNode.text := sNode.text + 'this is a test';
              sNode.Save('a.xml');
           end;
        finally
           xmlDOm := nil;
        end;
    end;