TreeView1.Items.Add(nil,a[46].name);
TreeView1.Items.Add(nil,a[47].name);
TreeView1.Items.Add(nil,a[48].name);
TreeView1.Items.Add(nil,a[49].name);
TreeView1.Items.Add(nil,a[50].name);
TreeView1.Items.Add(nil,a[51].name);
TreeView1.Items.Add(nil,a[52].name);
TreeView1.Items.Add(nil,a[53].name);
TreeView1.Items.Add(nil,a[54].name);
TreeView1.Items.Add(nil,a[55].name);
TreeView1.Items.Add(nil,a[56].name);
TreeView1.Items.Add(nil,a[57].name);
TreeView1.Items.Add(nil,a[58].name);
TreeView1.Items.Add(nil,a[59].name);
TreeView1.Items.Add(nil,a[60].name);
TreeView1.Items.Add(nil,a[61].name);
TreeView1.Items.Add(nil,a[62].name);
TreeView1.Items.Add(nil,a[63].name);
TreeView1.Items.Add(nil,a[64].name);
TreeView1.Items.Add(nil,a[65].name);
TreeView1.Items.Add(nil,a[66].name);
End;
if ComboBox2.Text='Центр' then begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil,a[67].name);
TreeView1.Items.Add(nil,a[68].name);
TreeView1.Items.Add(nil,a[69].name);
TreeView1.Items.Add(nil,a[70].name);
TreeView1.Items.Add(nil,a[71].name);
TreeView1.Items.Add(nil,a[72].name);
TreeView1.Items.Add(nil,a[73].name);
TreeView1.Items.Add(nil,a[74].name);
TreeView1.Items.Add(nil,a[75].name);
TreeView1.Items.Add(nil,a[76].name);
TreeView1.Items.Add(nil,a[77].name);
TreeView1.Items.Add(nil,a[78].name);
TreeView1.Items.Add(nil,a[79].name);
TreeView1.Items.Add(nil,a[80].name);
TreeView1.Items.Add(nil,a[81].name);
TreeView1.Items.Add(nil,a[82].name);
TreeView1.Items.Add(nil,a[83].name);
TreeView1.Items.Add(nil,a[84].name);
TreeView1.Items.Add(nil,a[85].name);
TreeView1.Items.Add(nil,a[86].name);
TreeView1.Items.Add(nil,a[98].name);
TreeView1.Items.Add(nil,a[99].name);
TreeView1.Items.Add(nil,a[100].name);
TreeView1.Items.Add(nil,a[101].name);
TreeView1.Items.Add(nil,a[102].name);
if ComboBox2.Text='Ракове' then begin
TreeView1.Items.Add(nil,a[87].name);
TreeView1.Items.Add(nil,a[88].name);
TreeView1.Items.Add(nil,a[89].name);
TreeView1.Items.Add(nil,a[90].name);
TreeView1.Items.Add(nil,a[91].name);
TreeView1.Items.Add(nil,a[92].name);
TreeView1.Items.Add(nil,a[93].name);
TreeView1.Items.Add(nil,a[94].name);
TreeView1.Items.Add(nil,a[95].name);
TreeView1.Items.Add(nil,a[96].name);
TreeView1.Items.Add(nil,a[97].name);
TreeView1.Items.Add(nil,a[112].name);
TreeView1.Items.Add(nil,a[113].name);
TreeView1.Items.Add(nil,a[114].name);
TreeView1.Items.Add(nil,a[115].name);
TreeView1.Items.Add(nil,a[116].name);
TreeView1.Items.Add(nil,a[117].name);
TreeView1.Items.Add(nil,a[118].name);
TreeView1.Items.Add(nil,a[119].name);
TreeView1.Items.Add(nil,a[313].name);
TreeView1.Items.Add(nil,a[120].name);
TreeView1.Items.Add(nil,a[121].name);
TreeView1.Items.Add(nil,a[122].name);
TreeView1.Items.Add(nil,a[123].name);
TreeView1.Items.Add(nil,a[124].name);
TreeView1.Items.Add(nil,a[125].name);
TreeView1.Items.Add(nil,a[126].name);
TreeView1.Items.Add(nil,a[127].name);
TreeView1.Items.Add(nil,a[128].name);
TreeView1.Items.Add(nil,a[129].name);
TreeView1.Items.Add(nil,a[130].name);
TreeView1.Items.Add(nil,a[131].name);
TreeView1.Items.Add(nil,a[132].name);
TreeView1.Items.Add(nil,a[133].name);
TreeView1.Items.Add(nil,a[134].name);
TreeView1.Items.Add(nil,a[135].name);
TreeView1.Items.Add(nil,a[136].name);
TreeView1.Items.Add(nil,a[137].name);
TreeView1.Items.Add(nil,a[138].name);
TreeView1.Items.Add(nil,a[154].name);
TreeView1.Items.Add(nil,a[155].name);
TreeView1.Items.Add(nil,a[156].name);
TreeView1.Items.Add(nil,a[157].name);
TreeView1.Items.Add(nil,a[158].name);
TreeView1.Items.Add(nil,a[159].name);
TreeView1.Items.Add(nil,a[160].name);
TreeView1.Items.Add(nil,a[161].name);
TreeView1.Items.Add(nil,a[162].name);
TreeView1.Items.Add(nil,a[163].name);
TreeView1.Items.Add(nil,a[164].name);
TreeView1.Items.Add(nil,a[213].name);
TreeView1.Items.Add(nil,a[214].name);
TreeView1.Items.Add(nil,a[215].name);
TreeView1.Items.Add(nil,a[216].name);
TreeView1.Items.Add(nil,a[217].name);
TreeView1.Items.Add(nil,a[218].name);
TreeView1.Items.Add(nil,a[219].name);
if ComboBox2.Text='Ружична' then begin
TreeView1.Items.Add(nil,a[165].name);
TreeView1.Items.Add(nil,a[166].name);
TreeView1.Items.Add(nil,a[167].name);
TreeView1.Items.Add(nil,a[168].name);
TreeView1.Items.Add(nil,a[169].name);
TreeView1.Items.Add(nil,a[170].name);
TreeView1.Items.Add(nil,a[171].name);
TreeView1.Items.Add(nil,a[172].name);
TreeView1.Items.Add(nil,a[173].name);
TreeView1.Items.Add(nil,a[174].name);
TreeView1.Items.Add(nil,a[175].name);
TreeView1.Items.Add(nil,a[176].name);
TreeView1.Items.Add(nil,a[177].name);
TreeView1.Items.Add(nil,a[178].name);
TreeView1.Items.Add(nil,a[179].name);
TreeView1.Items.Add(nil,a[180].name);
TreeView1.Items.Add(nil,a[181].name);
TreeView1.Items.Add(nil,a[182].name);
TreeView1.Items.Add(nil,a[183].name);
TreeView1.Items.Add(nil,a[184].name);
TreeView1.Items.Add(nil,a[185].name);
TreeView1.Items.Add(nil,a[186].name);
TreeView1.Items.Add(nil,a[187].name);
TreeView1.Items.Add(nil,a[188].name);
TreeView1.Items.Add(nil,a[189].name);
TreeView1.Items.Add(nil,a[223].name);
TreeView1.Items.Add(nil,a[224].name);
TreeView1.Items.Add(nil,a[225].name);
TreeView1.Items.Add(nil,a[226].name);
TreeView1.Items.Add(nil,a[227].name);
TreeView1.Items.Add(nil,a[228].name);
TreeView1.Items.Add(nil,a[229].name);
TreeView1.Items.Add(nil,a[230].name);
TreeView1.Items.Add(nil,a[231].name);
TreeView1.Items.Add(nil,a[232].name);
TreeView1.Items.Add(nil,a[233].name);
TreeView1.Items.Add(nil,a[234].name);
TreeView1.Items.Add(nil,a[235].name);
TreeView1.Items.Add(nil,a[236].name);
TreeView1.Items.Add(nil,a[237].name);
TreeView1.Items.Add(nil,a[238].name);
TreeView1.Items.Add(nil,a[239].name);
TreeView1.Items.Add(nil,a[240].name);
TreeView1.Items.Add(nil,a[241].name);
TreeView1.Items.Add(nil,a[242].name);
TreeView1.Items.Add(nil,a[243].name);
TreeView1.Items.Add(nil,a[244].name);
TreeView1.Items.Add(nil,a[245].name);
TreeView1.Items.Add(nil,a[246].name);
TreeView1.Items.Add(nil,a[247].name);
TreeView1.Items.Add(nil,a[248].name);
TreeView1.Items.Add(nil,a[249].name);
TreeView1.Items.Add(nil,a[250].name);
TreeView1.Items.Add(nil,a[251].name);
if ComboBox2.Text='Книжківці' then begin
TreeView1.Items.Add(nil,a[139].name);
TreeView1.Items.Add(nil,a[140].name);
TreeView1.Items.Add(nil,a[141].name);
TreeView1.Items.Add(nil,a[142].name);
TreeView1.Items.Add(nil,a[143].name);
TreeView1.Items.Add(nil,a[144].name);
TreeView1.Items.Add(nil,a[145].name);
TreeView1.Items.Add(nil,a[146].name);
TreeView1.Items.Add(nil,a[147].name);
TreeView1.Items.Add(nil,a[148].name);
TreeView1.Items.Add(nil,a[149].name);
TreeView1.Items.Add(nil,a[150].name);
TreeView1.Items.Add(nil,a[151].name);
TreeView1.Items.Add(nil,a[152].name);
TreeView1.Items.Add(nil,a[153].name);
if ComboBox2.Text='Дубове' then begin
TreeView1.Items.Add(nil,a[103].name);
TreeView1.Items.Add(nil,a[104].name);
TreeView1.Items.Add(nil,a[105].name);
TreeView1.Items.Add(nil,a[106].name);
TreeView1.Items.Add(nil,a[107].name);
Страницы: 1, 2, 3, 4, 5, 6