1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: TDOMDocument;
  List: TDomNodeList;
  Knoten: TDomNode;
  Len, i: Integer;
  S: string;
begin
  //Memo1.Clear;
  ListBox1.Items.Clear;

  Doc := XmlToDomParser1.FileToDom(extractfiledir(application.ExeName) + '\test.xml');

  List := Doc.documentElement.childNodes;

  Len := List.length;
  for i := 0 To List.length -1 do
    ListBox1.Items.Add(List.item(i).nodeName);

end;                    

1:

GetThoseNodes(xmldoc.documentElement,nil);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

  procedure GetThoseNodes(const xmlParent: IXMLDOMNode;
    tvParent: TTreeNode);
  var
    tn : TTreeNode;
    i  : integer;
    s  : string;
  begin
    // wenn der XML-Parent "nil" ist, dann raus!
    if(xmlParent = nil) then exit;

    // wenn der XML-Parent ein Element ist, dann
    // den Namen ermitteln, ...
    if(xmlParent.Get_nodeType = NODE_ELEMENT) then
      s := xmlParent.Get_nodeName
    // ... ansonsten den Inhalt
    else
      s := xmlParent.Get_nodeValue;

    // ist der TreeView-Parent "nil", dann neuen
    // Knoten an oberster Ebene einfügen, ...
    if(tvParent = nil) then tn := tv.Items.Add(nil,s)
    // ... ansonsten den Parent benutzen und den
    // neuen Knoten darunter einfügen
      else tn := tv.Items.AddChild(tvParent,s);

    // hat der XML-Parent noch untergeordnete Elemente?
    if(xmlParent.childNodes.length > 0) then
    // Ja, dann in einer Schleife diese Prozedur
    // hier erneut aufrufen, ...
      for i := 0 to xmlParent.childNodes.length - 1 do
    // ... und dabei das jeweilige Element sowie den
    // eben erzeugten TreeView-Knoten als Parents übergeben
        GetThoseNodes(xmlParent.childNodes.item[i],tn);
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: TDOMDocument;
begin

  tv.Items.Clear;

  Doc := XmlToDomParser1.FileToDom(extractfiledir(application.ExeName) + '\test.xml');
  GetThoseNodes(Doc.documentElement,nil);

end;

procedure TForm1.GetThoseNodes(const Knoten: TDomNode; tvParent: TTreeNode);
var
  tn : TTreeNode;
  len, i: Integer;
  s: string;
begin

  if (Knoten = nil) then exit;

  if (Knoten.nodeType = ntElement_Node) then
    s:=Knoten.nodeName
  else
    s:=Knoten.nodeValue;

  if (tvparent=nil) then
    tn:= tv.Items.Add(nil,s)
  else
    tn := tv.Items.AddChild(tvParent,s);

  if Knoten.childNodes.length >0 then
    for i := 0 to Knoten.childNodes.length - 1 do

  GetThoseNodes(Knoten.childNodes.item(i),tn);

end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);

  procedure GetThoseNodes(const Knoten: TDomNode;
    tvParent: TTreeNode);
  { ... }

{ ... }                    

1:
2:
3:
4:

if knoten.nodeName = 'knotenname1' then begin    
      showmessage(knoten.attributes.getNamedItem 
                           ('attribut1').textContent);
  end;                    

1:

Name des Eintrags||