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

Autoteile
  |_Autoteile24
  |_Tip.Auto
    |_Alex
    |_Nollendorfülatz
    |_Wedding
Baumärkte
  |_Bauhaus
  |_Hornbach
    |_Bohnsdorf
    |_Gradestr.
  |_Obi
  |_Praktiker					

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:

procedure TForm1.FormCreate(Sender: TObject);
var aNode: TTreeNode;
    f: TextFile;  Bslash,slash: integer;  haupt,unter,s: string;
begin assignFile(f, 'D:\Delphi-Neu2\Dateien\Bei.txt'); reset(f);
while not eof(f) do
      begin readln(f, s);  slash:=pos('/',s);
      haupt:=copy(s,1,slash-1); // 1.Wort in Zeile immer Hauptknoten(zB. 'Baumärkte')
      aNode:=TreeView1.Items.Add(Nil, haupt); // Hauptknoten schreiben
      Delete(s,1,slash); // Hauptknoten + '/' aus s entfernen
      while (length(s)>0) do
            begin Bslash:=pos('\',s); slash:=pos('/',s);
         -->if (slash<Bslash) then // zB. Bauhaus/Hornbach\
               begin unter:=copy(s, 1, slash-1); // Unterknoten
               TreeView1.Items.AddChild(aNode, unter); // Unterknoten schreiben
               Delete(s,1,slash); // Unterknoten aus s entfernen
               end else
                -->if (slash>Bslash) And (Bslash>0) then // zB. Hornbach\Bohnsdorf\Gradestr/
                      begin unter:=copy(s, 1, Bslash-1);
                      TreeView1.Items.AddChild(aNode, unter);
                      Delete(s,1,Bslash);
                      while (slash>Bslash) And (slash>1) do // Hier nur Ort(e)
                            begin unter:=copy(s, 1, Bslash-1); // Ort extrahieren
                            TreeView1.Items.AddChild(aNode, unter); // Ort schr.
                            Delete(s,1,Bslash); // 'Westhafen)' entfernen
                            Bslash:=pos('(',s); slash:=pos('/',s);
                            end;
                      end;
            end;
      end; closeFile(f);
TreeView1.SetFocus;					

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

# 2 Datentypen
    * 2.1 Einfache Typen
    * 2.2 Komplexe Typen
          o 2.2.1 Beliebiger Inhalt
          o 2.2.2 Listen
          o 2.2.3 Leere Elemente
    * 2.3 Ableitung neuer Typen
          o 2.3.1 Erweiterung eines Typs
          o 2.3.2 Einschränkung eines Typs