Курсовая работа: Довідник по Хмельницькому

End;

if ComboBox2.Text='Озерна' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[14].name);

TreeView1.Items.Add(nil,a[15].name);

TreeView1.Items.Add(nil,a[16].name);

TreeView1.Items.Add(nil,a[17].name);

TreeView1.Items.Add(nil,a[18].name);

TreeView1.Items.Add(nil,a[19].name);

TreeView1.Items.Add(nil,a[20].name);

TreeView1.Items.Add(nil,a[21].name);

TreeView1.Items.Add(nil,a[22].name);

TreeView1.Items.Add(nil,a[23].name);

TreeView1.Items.Add(nil,a[24].name);

TreeView1.Items.Add(nil,a[25].name);

TreeView1.Items.Add(nil,a[28].name);

End;

if ComboBox2.Text='Лезневе' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[29].name);

TreeView1.Items.Add(nil,a[30].name);

TreeView1.Items.Add(nil,a[31].name);

TreeView1.Items.Add(nil,a[32].name);

TreeView1.Items.Add(nil,a[33].name);

TreeView1.Items.Add(nil,a[34].name);

TreeView1.Items.Add(nil,a[35].name);

TreeView1.Items.Add(nil,a[36].name);

TreeView1.Items.Add(nil,a[37].name);

TreeView1.Items.Add(nil,a[38].name);