По нажатию на кнопку требуется занести в TreeView1 эти записи...
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,'цех1');
begin
for i:=0 to ListBox1.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[i],listbox1.Items.Strings[i]);
end;
TreeView1.Items.Add(nil,'цех2');
begin
for j:=0 to ListBox2.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[j],listbox2.Items.Strings[j]);
end;
TreeView1.Items.Add(nil,'цех3');
begin
for k:=0 to ListBox3.Count-1 do
TreeView1.Items.AddChild(TreeView1.Items.Item[k],listbox3.Items.Strings[k]);
end;
т.е. в итоге должно получиться
+цех1
....
....
....
+цех2
....
....
....
+цех3
....
....
....
А получается, что все записи попадают в цех1...
Объясните пожалуйста, как достичь желаемого результата?