我下面这段代码不知道为什么。。就是无法删除啊。。也没有报错!!! 急
麻烦帮我看看是怎么回事!!!
procedure TXmlManage.Delete(xmlFile,DepartmentName,ApplicationName,ApplicationLinks:string);
var
doc:IXMLDOMDocument;
node,parentNode:ixmlDomNode;
NodePath:String;
begin
doc := CoDOMDocument.create;
doc.load(xmlFile);
NodePath:='APP/DEPARTMENT[@NAME='''+DepartmentName+''']/APPLICATION[@NAME='''+ApplicationName+''' and @LINK='''+ApplicationLinks+''']';
node:=self.GetNode(xmlFile,NodePath);
if node<>nil then
begin
//thenode.ParentNode.ChildNodes.Delete(thenode.ParentNode.ChildNodes.IndexOf(thenode)); //删除当前节点
parentNode:=node.parentNode;
if parentNode<>nil then
begin
parentNode.removeChild(node);
end;
end;
doc.save(xmlFile);
end;
麻烦帮我看看是怎么回事!!!
procedure TXmlManage.Delete(xmlFile,DepartmentName,ApplicationName,ApplicationLinks:string);
var
doc:IXMLDOMDocument;
node,parentNode:ixmlDomNode;
NodePath:String;
begin
doc := CoDOMDocument.create;
doc.load(xmlFile);
NodePath:='APP/DEPARTMENT[@NAME='''+DepartmentName+''']/APPLICATION[@NAME='''+ApplicationName+''' and @LINK='''+ApplicationLinks+''']';
node:=self.GetNode(xmlFile,NodePath);
if node<>nil then
begin
//thenode.ParentNode.ChildNodes.Delete(thenode.ParentNode.ChildNodes.IndexOf(thenode)); //删除当前节点
parentNode:=node.parentNode;
if parentNode<>nil then
begin
parentNode.removeChild(node);
end;
end;
doc.save(xmlFile);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货