Цитата:
Сообщение от 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;
А Этот код тоже считается "ГРЯЗНЫМ"?