Node an Node hängen

[Tigermoon]

Hallo

wie bekomme ich Name, Mann, Frau an Spiel?

Delphi-Quellcode:

if(FileExists('Badminton.xml'))
  then begin

    XML_File := newXMLDocument;
    XML_File.LoadFromFile('Badminton.xml');

    name := Wunsch.FWunsch.ESpielName.Text;

    NodeSpiel := XML_File.createNode('SPIEL');
    NodeName := XML_FILE.CreateNode('NAME');
    NodeName.text := name;
    NodeMann := XML_FILE.CreateNode('MANN');
    NodeMann.text := Mann.text.
    NodeFrau := XML_FILE.CreateNode('FRAU');
    NodeFrau.text := Frau.text.

    NodeSpiel.ParentNode.AddChild(NodeName); // so gehts ned *g* irgendwie

    XML_File.ChildNodes['BADMINTON'].ChildNodes['WUNSCHSPIELE'].ChildNodes.Add(NodeSpiel);

    XML_File.SaveToFile('Badminton.xml');

    Wunsch.FWunsch.LBWunschSpiele.Clear;
    datei_laden;
  end;

datei soll nachher so aussehen

Delphi-Quellcode:

<BADMINTON>
   <WUNSCHSPIELE>
      <SPIEL>
         <NAME>Meister</NAME>
         <MANN>Peter</MANN>
         <FRAU>Inge</FRAU>
      </SPIEL>
   </WUNSCHSPIELE>
   </BADMINTON>

Danke schon mal
Stephie

[Niko]

Hi,

das sollte so funktionieren:

Delphi-Quellcode:

NodeSpiel.ChildNodes.Add(NodeName);

Alternativ kannst du die Knoten gleich als Unterknoten erzeugen:

Delphi-Quellcode:

NodeName := NodeSpiel.AddChild('NAME', -1);