Hallo,
ich habe folgendes
xml beispiel:
<?
xml version="1.0" encoding="Windows-1252"?>
<Messages>
<Message>
<Auftrag>4046714000000</Auftrag>
<Kundennummer>4260438010002</Kundennummer>
<Artikel>
<POS>1</POS>
<Artikelnummer>4711</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 1</Artikelbeschreibung>
<Menge>2.00</Menge>
<Einzelpreis>100.00</Einzelpreis>
<Rabatt>
<Rabattprozent>10</Rabattprozent>
<Rabattsumme>10.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>2</POS>
<Artikelnummer>4712</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 2</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>0.00</Einzelpreis>
<Rabatt>
<Rabattprozent>0</Rabattprozent>
<Rabattsumme>0.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>3</POS>
<Artikelnummer>4713</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 3</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>100.00</Einzelpreis>
<Rabatt>
<Rabattprozent>10</Rabattprozent>
<Rabattsumme>10.00</Rabattsumme>
</Rabatt>
</Artikel>
<Artikel>
<POS>4</POS>
<Artikelnummer>4714</Artikelnummer>
<Artikelbeschreibung>Beispielartikel 4</Artikelbeschreibung>
<Menge>1.00</Menge>
<Einzelpreis>0.00</Einzelpreis>
<Rabatt>
<Rabattprozent>00</Rabattprozent>
<Rabattsumme>0.00</Rabattsumme>
</Rabatt>
</Artikel>
</Message>
</Messages>
aus diesem Beispiel müssen alle Artikel deren Einzelpreis = 0.00 ist entfernt werden.
dazu habe ich folgenden code begonnen, weiss aber nicht wie ich nodes/elemente löschen kann bevor
ich die
xml neu schreibe.
Vielleicht kann mir hier jemand helfen.
Vielen Dank im voraus.
(Delphi7)
procedure TMainFormular.Button1Click(Sender: TObject);
var
Doc: IXMLDocument;
i: Integer;
begin
Doc := LoadXMLDocument('test.XML');
Doc.Active := True;
code zum löschen von inhalten elementen?....
Doc.SaveToFile('test.XML');
end;