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

 with ZQuery1 do begin
  sql.text:='Select * from gruppe';
  open;
 end;
 FieldList := TStringList.create;
 TreeView1.items.BeginUpdate;
 ZQuery1.first;
 while not ZQuery1.eof do
 begin
  TreeAddItem(TreeView1, GetFieldList, 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:

function Tonline_tree.GetFieldList: TStringList;
var akt_gruppe:integer;
    i,j:integer;
begin
 FieldList.clear;
 with online_tree.ZQuery2 do begin
  sql.Text:='SELECT * FROM gruppe WHERE ID = :GRUPPE';
  With Params.ParamByName('GRUPPE') do begin
   DataType := ftinteger;
   Value := online_tree.ZQuery1.fieldbyname('GR_ID').asinteger;
  End;
  open;
 end;
 if ZQuery2.RecordCount>0 then
  if ZQuery2.FieldByName('gr_id').asinteger > 0 then begin //ZUM ROOT VORDRINGEN
   repeat
    FieldList.add(ZQuery2.fieldbyname('NAME').asstring);
    akt_gruppe:=zQuery2.fieldbyname('gr_id').AsInteger;
    with online_tree.ZQuery2 do begin
     sql.Text:='SELECT * FROM gruppe WHERE ID = :GRUPPE';
     With Params.ParamByName('GRUPPE') do begin
      DataType := ftinteger;
      Value := akt_gruppe;
     End;
     open;
    end;
   until akt_gruppe=0;
   i:= 0;
   j :=  FieldList.count-1;
   while i<j do
    begin
     FieldList.Exchange(I,J);
     inc(i);
     dec(j)
    end;
  end
  else
   repeat
    FieldList.add(ZQuery2.fieldbyname('NAME').asstring);
   until ZQuery2.FindNext=false;
 FieldList.add(ZQuery1.fieldbyname('NAME').asstring);
 Result := FieldList;
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:

 with ZQuery1 do begin
  sql.Text:='SELECT t1.name, t1.id, t1.gr_id, t1.bild, t1.artikel_id, t1.kategorie, t1.name AS lev1, t2.name AS lev2, t3.name AS lev3, t4.name AS lev4,t5.name AS lev5 '+
             '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 t4.gr_id = t4.id '+
             'WHERE t1.gr_id = :wert';
 parambyname('wert').asinteger:=0;
 open;
 end;

 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);
  TreeAddItem(TreeView1, fieldlist, ZQuery1.getBookmark, false);
  ZQuery1.next;
 end;					

1:

 if DataSource1.enabled then ZQuery1.gotobookmark(node.Data);					

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

Autos 
 - groß
 - klein
   - sehr klein

Fahrräder ->					

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

 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;
...