<?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)的删除操作 我是初学者 求代码,尽可能清楚些,先谢谢了
<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)的删除操作 我是初学者 求代码,尽可能清楚些,先谢谢了
try
XMLDoc.FileName := filename;
XMLDoc.Active := True;
iNode:=XMLDoc.DocumentElement;
while iNode <> nil do
begin
iNode := iNode.NextSibling;
end;
finally
XMLDoc.Active := False;
end;
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;