Подскажите с ComboBox

@SLideR11 · Регистрация: 02.10.2013

Студворк — интернет-сервис помощи студентам

Приветствую. Помогите со следующей проблемой. В общем есть два ComboBox: в первом ComboBox1 список забит, во второй ComboBox2 список забивается в зависимости от выбора в ComboBox1:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
if ComboBox1.ItemIndex=0
  then begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Хабаровск');
       ComboBox2.Items.Add('г. Комсомольск-на-Амуре');
       ...
       ...
  else begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Артём');
       ComboBox2.Items.Add('г. Находка');
       ...
       ...

Далее необходимо, чтобы после выбора в ComboBox2 выполнялись свои операции...
Пробовал через ComboBox2.ItemIndex=... , типа вот так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if ComboBox1.ItemIndex=0
  then begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Хабаровск');
       ComboBox2.Items.Add('г. Комсомольск-на-Амуре');
       ...
       ...
       if ComboBox2.ItemIndex=0
         then begin
                ...
                ...
                end
  else begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Артём');
       ComboBox2.Items.Add('г. Находка');
       ...
       ...

Ничего не вышло.

Пробовал через ComboBox2.Items.Text='...'

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if ComboBox1.ItemIndex=0
  then begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Хабаровск');
       ComboBox2.Items.Add('г. Комсомольск-на-Амуре');
       ...
       ...
       if ComboBox2.Items.Text='г. Хабаровск'
         then begin
                ...
                ...
                end
  else begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Артём');
       ComboBox2.Items.Add('г. Находка');
       ...
       ...

Тоже ничего не получилось.

Долго бьюсь уже. Может кто что знает?

@FIL · 31.10.2013, 09:40

Для этого есть case ... of
И в твоих примерах в 9-х строчках с индексами напутано.

@SLideR11 · 31.10.2013, 09:58 **[ТС]**

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

Для этого есть case ... of
И в твоих примерах в 9-х строчках с индексами напутано.

Я знаю, про case ... of, это тут не причём. Можно было либо так:

Delphi
1
if ComboBox2.ItenIndex=... //и перебирать каждый

либо так:

Delphi
1
2
case ComboBox2.ItenIndex of
... //и перебирать каждый

Код не мог в них запутаться, потому что после создания списка в ComboBox2 индексы должны были создаться и тогда правильно определиться, конечно, если они создались.

@FIL · 31.10.2013, 10:09

После добавления строк в пустой КомбоБокс ItenIndex = -1 и смысла в дальнейших проверках нет никакого.

@SLideR11 · 31.10.2013, 12:13 **[ТС]**

Посоветуешь что-нибудь, чтобы нормально это сделать, чтобы потом индексы нормально вставали?

Добавлено через 8 минут
Посоветуйте что-нибудь. Как забивать список, чтобы ещё и индексы прописывать?

@FIL · 31.10.2013, 15:44

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

Посоветуешь что-нибудь, чтобы нормально это сделать

Советую: почитать учебник, где описана работа с ComboBox и ему подобными компонентами.

@SLideR11 · 01.11.2013, 06:30 **[ТС]**

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

Советую: почитать учебник, где описана работа с ComboBox и ему подобными компонентами.

С таким успехом, можно было просто написать: "гугл в помощь"

@Anwar · 01.11.2013, 09:39

Делается просто:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Case combobox1.itemindex of
0:
begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Хабаровск');
       ComboBox2.Items.Add('г. Комсомольск-на-Амуре');
end;
1:
begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Артём');
       ComboBox2.Items.Add('г. Находка');
end;
end.

0, 1 это индекс строки, возможно в коде есть ошибки, но проще делать через оператор выбора CASE ... OF

@SLideR11 · 01.11.2013, 10:02 **[ТС]**

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

Делается просто:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Case combobox1.itemindex of
0:
begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Хабаровск');
       ComboBox2.Items.Add('г. Комсомольск-на-Амуре');
end;
1:
begin
       ComboBox2.Items.Clear;
       ComboBox2.Items.Add('г. Артём');
       ComboBox2.Items.Add('г. Находка');
end;
end.

0, 1 это индекс строки, возможно в коде есть ошибки, но проще делать через оператор выбора CASE ... OF

Это я и сам делал, только через if и это работает. Мне нужно было разобраться в поиске ComboBox2, потому как там возникала проблема. Но всё равно спасибо. Но я уже сам разобрался.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	31.10.2013, 09:40
	Для этого есть case ... of И в твоих примерах в 9-х строчках с индексами напутано. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	31.10.2013, 10:09
	После добавления строк в пустой КомбоБокс ItenIndex = -1 и смысла в дальнейших проверках нет никакого. 0

@SLideR11 5 / 4 / 1 Регистрация: 02.10.2013 Сообщений: 189
	31.10.2013, 12:13 [ТС]
	Посоветуешь что-нибудь, чтобы нормально это сделать, чтобы потом индексы нормально вставали? Добавлено через 8 минут Посоветуйте что-нибудь. Как забивать список, чтобы ещё и индексы прописывать? 0