XML visualisieren / und ich seh kein Land

[Cosamia]

Sorry, das ich mich solange nicht auf gemeldet habe. Hatte völlig vergessen, dass ich nicht geantwortet habe.

Das Problem bleibt das selbige.

Ich habe eine XML Datei, welchen Aufbau ich kenne. Ziel ist es nun alle Attribute dieser Datei auszulesen.
Wenn ich das Attribut angebe, dann funtioniert das auch mittlerweile (siehe Code ['selectedValue']).

Aber ich würde gerne alle Werte in einer Listbox anzeigen, die sich in der Datei befinden.

Gruss

Delphi-Quellcode:

procedure TForm1.erweitereBaum(node : IXMLNode;knoten : TTreeNode);
  var
    nodes      : IXMLNodeList;
    kindknoten : TTreeNode;
    i          : integer;
    tempStr    :String;
    orvalue    :String;
    

  begin
    if node.HasChildNodes then
    begin
      nodes := node.ChildNodes;
      for i := 0 to nodes.Count - 1 do
      begin
        case nodes[i].NodeType of
          ntElement   : begin
                          TempStr := '';
                          if nodes[i].HasAttribute('selectedValue') then
                            begin
                              tempStr:= nodes[i].Attributes['selectedValue'];
                            end;
                          kindknoten := tvBaum.Items.AddChild(knoten,'<'+nodes[i].NodeName+'>'+Tempstr);

                          //orvalue := nodes[i].Attributes[Attributnamen]; {Wie komme ich an den Attributnamen}
                          content.Items.Add (orvalue); {Strinlist}
                          orvalue := '';
                          end;
                        end;
          ntText      : kindknoten := tvBaum.Items.AddChild(knoten,nodes[i].text);
        end; // of case
        erweitereBaum(nodes[i],kindknoten);
      end;
    end;
  end;