[segas]

Сообщение от lmikle

Честно говоря, за такой код руки надо отрывать. И никто не хочет в нем разбираться. Я же тебе дал процедуры создания узлов дерева. Там просто проходишь по всем записям и вызываешь эту процку с соотв. параметрами. Она тебе дерево и построит.

Вообщем реализовал следующим образом:

Код:

 TreeView1.Items.Clear;
 Query1.First;
 ndApt:=TreeView1.Items.Add(nil,Query1PREDPRIATIE.Value);
 
Query2.First;
    for i:=1 to Query2.RecordCount do begin
    nd1:=TreeView1.Items.AddChild(ndApt, Trim(Query2CEX.Value));

   Query3.First;
       for j:=1 to Query3.RecordCount do begin
       nd2:=TreeView1.Items.AddChild(nd1, Trim(Query3OTDEL.Value));

       Query4.First;
         for k:=1 to Query3.RecordCount do begin
         nd3:=TreeView1.Items.AddChild(nd2, Trim(Query4FAMILIA.Value));

       Query4.Next;
       end;

     Query3.Next;
     end;
 Query2.Next;
 end;
Query1.Next;

А Этот код тоже считается "ГРЯЗНЫМ"?