熟悉IXMLDOMDocument的进

[Code166]

朋友们能不能给出IXMLDOMDocument的修改新增删除xml的代码，先谢过了

[Code166]

var
aNode: IXMLDOMNode;
aNode1: IXMLDOMNode;
begin
aNode1 := xmlDoc.selectSingleNode('/configuration/cards');
aNode := xmlDoc.createElement('RootNode');
// 加入子结点
aNode1 := aNode1.appendChild(aNode);
// 设置子结点内容
aNode1.Text := '文本内容';
xmlDoc.save('G:\WintonCallCenterPlatform\WintonCallCentePlatformManager\bin\cti.xml');
end;
xmldoc在窗体创建的时候已经读取了xml所以这里直接用了。

[Code166]

接上文加属性
var FAttr : IXMLDOMNode
FAttr := xmldoc.createAttribute('id');

aNode1.attributes.setNamedItem(FAttr);

[Code166]

人都哪去了

[ccrun.com]

uses XMLIntf, XMLDoc;

procedure TForm1.Button1Click(Sender: TObject);
var
    xmlDoc: IXMLDocument;
    aNode: IXMLNode;
begin
    xmlDoc := NewXMLDocument;
    try
        // 加入版本信息
        xmlDoc.Active := True;
        xmlDoc.Version := '1.0';
        xmlDoc.Encoding := 'GB2312';

        xmlDoc.Options := xmlDoc.Options + [doNodeAutoIndent];

        // 加入根结点
        aNode := xmlDoc.AddChild('RootNode');
        // 加入子结点
        aNode := aNode.AddChild('ChildNode');
        // 设置子结点属性
        aNode.SetAttribute('Name', '名称');
        aNode.SetAttribute('Len', '长度');
        // 设置子结点内容
        aNode.Text := '文本内容';

        xmlDoc.SaveToFile('C:\123.xml');
    finally
        xmlDoc.Active := false;
    end;
end;

[Code166]

谢谢