paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-14 08:51:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

xmlcfg: fixed DeletePath

Browse Source 
git-svn-id: trunk@25817 -
This commit is contained in:
mattias 2010-06-01 17:14:55 +00:00
parent 2a52b833dc
commit 9e6de7a287
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/laz_xmlcfg.pas
View File

@ -335,8 +335,15 @@ begin
end; end;
procedure TXMLConfig.DeletePath(const APath: string); procedure TXMLConfig.DeletePath(const APath: string);
var
Node: TDOMNode;
ParentNode: TDOMNode;
begin begin
InternalCleanNode(InternalFindNode(APath,length(APath))); Node:=InternalFindNode(APath,length(APath));
if (Node=nil) or (Node.ParentNode=nil) then exit;
ParentNode:=Node.ParentNode;
ParentNode.RemoveChild(Node);
InternalCleanNode(ParentNode);
end; end;
procedure TXMLConfig.DeleteValue(const APath: string); procedure TXMLConfig.DeleteValue(const APath: string);