XML Knoten

[krys2000]

Wenn die XML Datei so ist hier Beispiel:

Code:

<?xml version="1.0" standalone="yes" ?> 
<movieorganizer>
 <movie>
  <id>0</id> 
  <name>Krieg der Sternen</name> 
  <format>DVD</format> 
  <ton>DD5.1</ton> 
  <anzmedien>5</anzmedien> 
  <bildqualitaet>1+</bildqualitaet> 
  <tonqualitaet>1</tonqualitaet> 
  <gesamt>1+</gesamt> 
  <verliehen /> 
  <comment>Fiction aber geile Film</comment> 
  <sreenshot /> 
 </movie>
</movieorganizer>

dann kriege ich die Werte vom Knoten mit diese Procedur

Delphi-Quellcode:

procedure TForm1.UpdateList;
const
KNOTEN: array[0..8] of String = ('name', 'format', 'ton', 'anzmedien',
      'bildqualitaet', 'tonqualitaet', 'gesamt', 'verliehen', 'comment');  // siehe I
Var
movies : IXMLDOMNodeList; // Wird alle Filme (die Pakete) enthalten
subNode : IXMLDOMNode;  // enthält eine Node
i, j: Integer; // Laufvariablem
Test: String;
begin
    Memo1.Lines.Clear;
   movies:=xmlDoc.documentElement.selectNodes('movie'); // siehe II
   for i:=0 to movies.length-1 do
      begin
     subNode:=movies.item[i].selectSingleNode('id'); // siehe III
      Memo1.Lines.Add(subNode.nodeName+'    ------>     '+subNode.text);
      Memo1.Lines.Add('');
         for j:=0 to length(KNOTEN)-1 do   // siehe V
                      begin
                     subNode:= movies.item[i].selectSingleNode(KNOTEN[j]);
                     if subNode<> nil Then   // siehe VI
                     begin
                      Memo1.Lines.Add(subNode.nodeName+'    ------>     '+subNode.text);
                      end
                     else
                     Memo1.Lines.Add('');
                  end; // ENDE for j:=0 to length(NAMES)-1 do
            // ENDE with  MovieList.Items[i].SubItems do

       end;  // ENDE  for i:=0 to movies.length-1 do
end;

Ist sie aber so dargestellt

Code:

?xml version="1.0" standalone="yes"?>
<movieorganizer>
    <movie id="0" name="Krieg der Sternen" format="DVD" ton="DD5.1" anzmedien="5" bildqualitaet="1" tonqualitaet="1" gesamt="1" verliehen="" comment="Fiction  aber  geile Film" sreenshot=""/>
</movieorganizer>

Kriege ich die Werte vom Knoten mit diese Procedur nicht in Memo

Kann mir jemand ein TIP geben?
Ich bin XML Anfänger
Danke
Chris

[edit=alcaeus]Code-Tags eingefuegt. Mfg, alcaeus[/edit]