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:

<?xml version="1.0" encoding="iso-8859-1" ?>
<thema>
  <settings>
    <title>neues Thema im XML Forum</title>
    <startDate>1.10.2002</startDate>
    <author>Hagbard Celine</author>
  </settings>
  <content>
    <message0>
      <author>HagbardCeline</author>
      <date>1.10.2002</date>
      <message>Dieser Beitrag ist eröffnet</message>
    </message0>
    <message1>
      <author>Einer</author>
      <date>2.10.2002</date>
      <message>Das ist auch ein XML Beitrag</message>
    </message1>
    <message2>
      <author>Keiner</author>
      <date>4.10.2002</date>
      <message>Und was soll das alles?</message>
    </message2>
  </content>
</thema>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

<?xml version="1.0" ?>
<thema>
  <settings>
    <title>neues Thema im XML Forum</title>
    <startDate>1.10.2002</startDate>
    <author>Hagbard Celine</author>
  </settings>
  <content>
    <message0 author="HagbardCeline" date="1.10.2002">Dieser Beitrag ist eröffnet</message0>
    <message1 author="Einer" date="2.10.2002">Das ist auch ein XML Beitrag</message1>
    <message2 author="Keiner" date="4.10.2002">Und was soll das alles?</message2>
  </content>
</thema>					

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

Uses XMLDoc, XMLIntf;

var myFirstXML : IXMLDocument;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myFirstXML := newXMLDocument;
  end;					

1:

myFirstXML.LoadFromFile('forum.xml');					

1:

myFirstXML.XML := xmlSourceMemo.Lines;					

1:

myFirstXML.Active := true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var i : Word;
begin
  xmlOutpuMemo.Lines.Clear;
  // Titelzeile anfügen
  xmlOutpuMemo.Lines.Add(myFirstXML.DocumentElement.ChildNodes['settings'].ChildNodes['title'].Text);

  // Beiträge anfügen
  for i := 0 to myFirstXML.DocumentElement.ChildNodes['content'].ChildNodes.Count -1 do
    xmlOutpuMemo.Lines.Add(myFirstXML.DocumentElement.ChildNodes['content'].ChildNodes[i].ChildNodes['message'].Text);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

<?xml version="1.0" encoding="iso-8859-1" ?> 
<tree> 
  <node1 caption="XML Grundlagen">
    <node6 caption="Was ist XML?"></node6>
  <node7 caption="Warum XML?"></node7>
  <node8 caption="Von wem kommt XML?"></node8>
  </node1>   
  <node2 caption="XML einlesen"></node2>   
  <node3 caption="XML erstellen"></node3>   
  <node4 caption="XML in der Praxis"></node4>   
  <node5 caption="XML ohne Nutzen"></node5>   
</tree>					

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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

unit treeXMLSourceMainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, XMLDoc, XMLIntf;

type
  TForm1 = class(TForm)
    TreeView: TTreeView;
    strukturAuslesenBtn: TButton;
    procedure strukturAuslesenBtnClick(Sender: TObject);
  private
    procedure recInsertNodes(rootNode: IXMLNode; Node: TTreeNode);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var myFirstXML : IXMLDocument;

procedure TForm1.recInsertNodes(rootNode: IXMLNode; Node: TTreeNode);
var i : Word;
begin
  if rootNode.ChildNodes.Count > 0 then
    for i := 0 to rootNode.ChildNodes.Count-1 do begin
      recInsertNodes(rootNode.ChildNodes[i],TreeView.Items.AddChild(Node,rootNode.ChildNodes[i].Attributes['caption']));
      end;
  end;

procedure TForm1.strukturAuslesenBtnClick(Sender: TObject);
begin
  myFirstXML := newXMLDocument;
  myFirstXML.LoadFromFile('tree.xml');
  myFirstXML.Active := true;

  treeView.Items.Clear;
  
  recInsertNodes(myFirstXML.DocumentElement,treeView.Items.AddChild(treeView.Selected,'XML Baum'));
  end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

<sections>
  <section name="heinz">
   <bezeichner>nnn</bezeichner>
   <value>val</value>
  <section name="meins">
   <bezeichner>xxx</bezeichner>
   <value>yyy</value>
   <bezeichner>zzz</bezeichner>
   <value>vvv</value>
  </section>
</sections>