如何使用OmniXML刪除一個子節點？

Question

我想刪除與在rowpath部分pathid="2"行...

<?xml version="1.0" encoding="utf-8"?> 
<LostPath Condition="Active" Selected="train.exe" FullPathOfSelected="D:\mygames\arcade\train\" Selected="0"> 
    <rowdir Name="train.exe" GamePath="D:\mygames\arcade\train\" Selected="0" /> 
    <rowdir Name="othelo.exe" GamePath="D:\mygames\arcade\othello\" Selected="3"/> 
    <rowpath Name="train.exe" PathId="1" LevelPath="D:\mygames\arcade\train\levelpack1" levelsFound="27" /> 
    <rowpath Name="train.exe" PathId="2" LevelPath="D:\mygames\arcade\train\levelpack21" levelsFound="19" /> 
    <rowpath Name="othelo.exe" PathId="0" LevelPath="D:\mygames\arcade\othelo\levelpack1" levelsFound="11" /> 
</LostPath> 

我怎麼能這樣做？

Answer 1

試着用這個。

uses 
    OmniXML, OmniXMLUtils; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    XMLNode: IXMLNode; 
    XMLDocument: IXMLDocument; 
begin 
    XMLDocument := CreateXMLDoc; 
    if XMLLoadFromFile(XMLDocument, 'XMLFile.xml') then 
    begin 
    XMLNode := XMLDocument.SelectSingleNode('/LostPath'); 
    DeleteNode(XMLNode, 'rowpath[@PathId="2"]'); 
    XMLDocument.Save('XMLFile.xml'); 
    end; 
end; 

Answer 2

有多種方法如何刪除所有節點具有相同屬性值。這是其中之一。但請注意，這篇文章不回答這個問題。應該作爲另一個問題提出。

uses 
    OmniXML, OmniXMLUtils; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    XMLNode: IXMLNode; 
    XMLDocument: IXMLDocument; 
begin 
    XMLDocument := CreateXMLDoc; 
    if XMLLoadFromFile(XMLDocument, 'XMLFile.xml') then 
    begin 
    XMLNode := XMLDocument.SelectSingleNode('/LostPath'); 
    DeleteAllChildren(XMLNode, 'rowpath[@Name="train.exe"]'); 
    XMLDocument.Save('XMLFile.xml'); 
    end; 
end;