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

- Fahrräder
- Autos
  - schnelle
  - langsame
    - Trabi
      - 601'er                    

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

- Fahrräder  
- Autos  
  - schnelle  
  - langsame  
    - Trabi  
      - 601'er 

ID: Level:  Caption:
=== ======  ========
1   0       Fahrräder
2   0       Autos
3   1       schnelle
4   1       langsame
5   2       Trabi
6   3       601'er                    

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

- Fahrräder  
- Autos  
  - schnelle  
  - langsame  
    - Trabi  
      - 601'er 

Würde dann in der Tabelle liegen als:

1. Fahrräder
2. Autos
3. Autos\schnelle
4. Autos\langsame
5. Autos\langsame\Trabi
6. Autos\langsame\Trabi\601'er                    

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:

 with ZQuery1 do begin
  sql.Text:='SELECT t1.name, t1.id, t1.gr_id, t1.bild, t1.artikel_id, t1.kategorie, '+
             't2.name as n2, t2.id as id2, t2.gr_id as gr_id2, t2.bild as bild2, t2.artikel_id as artid2, t2.kategorie as kat2, '+
             't3.name as n3, t3.id as id3, t3.gr_id as gr_id3, t3.bild as bild3, t3.artikel_id as artid3, t3.kategorie as kat3, '+
             't4.name as n4, t4.id as id4, t4.gr_id as gr_id4, t4.bild as bild4, t4.artikel_id as artid4, t4.kategorie as kat4, '+
             't5.name as n5, t5.id as id5, t5.gr_id as gr_id5, t5.bild as bild5, t5.artikel_id as artid5, t5.kategorie as kat5, '+
             't6.name as n6, t6.id as id6, t6.gr_id as gr_id6, t6.bild as bild6, t6.artikel_id as artid6, t6.kategorie as kat6, '+
             't7.name as n7, t7.id as id7, t7.gr_id as gr_id7, t7.bild as bild7, t7.artikel_id as artid7, t7.kategorie as kat7, '+
             't8.name as n8, t8.id as id8, t8.gr_id as gr_id8, t8.bild as bild8, t8.artikel_id as artid8, t8.kategorie as kat8, '+
             't1.name AS lev1, t2.name AS lev2, t3.name AS lev3, t4.name AS lev4,t5.name AS lev5, t6.name AS lev6 , t7.name AS lev7 , t8.name AS lev8 '+
             'FROM gruppe AS t1 '+
             'LEFT JOIN gruppe AS t2 ON t2.gr_id = t1.id '+
             'LEFT JOIN gruppe AS t3 ON t3.gr_id = t2.id '+
             'LEFT JOIN gruppe AS t4 ON t4.gr_id = t3.id '+
             'LEFT JOIN gruppe AS t5 ON t5.gr_id = t4.id '+
             'LEFT JOIN gruppe AS t6 ON t6.gr_id = t5.id '+
             'LEFT JOIN gruppe AS t7 ON t7.gr_id = t6.id '+
             'LEFT JOIN gruppe AS t8 ON t8.gr_id = t7.id '+
             'WHERE t1.gr_id = :wert ORDER by name';
 parambyname('wert').asinteger:=0;
 open;
 end;
 x:=ZQuery1.recordcount;
 FieldList := TStringList.create;
 TreeView1.items.BeginUpdate;
 ZQuery1.first;
 while not ZQuery1.eof do
 begin
  fieldlist.Clear;
  fieldlist.add(ZQuery1.fieldbyname('lev1').asstring);
  if ZQuery1.fieldbyname('lev2').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev2').asstring);
  if ZQuery1.fieldbyname('lev3').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev3').asstring);
  if ZQuery1.fieldbyname('lev4').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev4').asstring);
  if ZQuery1.fieldbyname('lev5').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev5').asstring);
  if ZQuery1.fieldbyname('lev6').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev6').asstring);
  if ZQuery1.fieldbyname('lev7').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev7').asstring);
  if ZQuery1.fieldbyname('lev8').asstring<>''then fieldlist.add(ZQuery1.fieldbyname('lev8').asstring);
  TreeAddItem(TreeView1, fieldlist, ZQuery1.getBookmark, false);
  ZQuery1.next;
 end;
 FieldList.clear;
 TreeView1.Alphasort;
 TreeView1.items.Endupdate;                    

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:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

 if DataSource1.enabled then ZQuery1.gotobookmark(node.Data);
 if node.text = ZQuery1.fieldbyname('lev1').asstring then begin
  dbedit1.dataField:='gr_id';
  dbedit3.dataField:='name';
  dbtext1.dataField:='id';
  dbedit2.dataField:='bild';
  dbedit4.dataField:='artikel_id';
  DBCheckBox1.dataField:='kategorie';
 end;
 if node.text = ZQuery1.fieldbyname('lev2').asstring then begin
  dbedit1.dataField:='gr_id2';
  dbedit2.dataField:='bild2';
  dbedit3.dataField:='n2';
  dbtext1.dataField:='id2';
  dbedit4.dataField:='artid2';
  DBCheckBox1.dataField:='kat2';
 end;
 if node.text = ZQuery1.fieldbyname('lev3').asstring then begin
  dbedit1.dataField:='gr_id3';
  dbedit2.dataField:='bild3';
  dbedit3.dataField:='n3';
  dbtext1.dataField:='id3';
  dbedit4.dataField:='artid3';
  DBCheckBox1.dataField:='kat3';
 end;
 if node.text = ZQuery1.fieldbyname('lev4').asstring then begin
  dbedit1.dataField:='gr_id4';
  dbedit2.dataField:='bild4';
  dbedit3.dataField:='n4';
  dbtext1.dataField:='id4';
  dbedit4.dataField:='artid4';
  DBCheckBox1.dataField:='kat4';
 end;
 if node.text = ZQuery1.fieldbyname('lev5').asstring then begin
  dbedit1.dataField:='gr_id5';
  dbedit2.dataField:='bild5';
  dbedit3.dataField:='n5';
  dbtext1.dataField:='id5';
  dbedit4.dataField:='artid5';
  DBCheckBox1.dataField:='kat5';
 end;
 if node.text = ZQuery1.fieldbyname('lev6').asstring then begin
  dbedit1.dataField:='gr_id6';
  dbedit2.dataField:='bild6';
  dbedit3.dataField:='n6';
  dbtext1.dataField:='id6';
  dbedit4.dataField:='artid6';
  DBCheckBox1.dataField:='kat6';
 end;
 if node.text = ZQuery1.fieldbyname('lev7').asstring then begin
  dbedit1.dataField:='gr_id7';
  dbedit2.dataField:='bild7';
  dbedit3.dataField:='n7';
  dbtext1.dataField:='id7';
  dbedit4.dataField:='artid7';
  DBCheckBox1.dataField:='kat7';
 end;
 if node.text = ZQuery1.fieldbyname('lev8').asstring then begin
  dbedit1.dataField:='gr_id8';
  dbedit2.dataField:='bild8';
  dbedit3.dataField:='n8';
  dbtext1.dataField:='id8';
  dbedit4.dataField:='artid8';
  DBCheckBox1.dataField:='kat8';
 end;