Mal wieder: XML in TreeView einlesen

[ringli]

Inzwischen bin ein bisschen weiter, aber leider wird jetzt immer nur die erste Anwendung ausgelesen.

Delphi-Quellcode:

  
benutzer  := xmldoc.documentElement.selectNodes('benutzer');

for i:= 0 to benutzer.length - 1 do
  begin
    Node := benutzer.item[i].selectSingleNode('benutzername');
    tv   := TreeView.Items.Add(nil, Node.text);

    if(Node.childNodes.length > 0) then
      for j := 0 to Node.childNodes.length - 1 do
        begin
          subNode := benutzer.item[i].selectSingleNode('anwendung/anwendungsname');
          TreeView.Items.AddChild(tv, subNode.text);
        end;
    end;