Связать ComboBox и Edit в Delphi

@kabardinec · Регистрация: 10.01.2014

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

Не могу разобраться.

Есть форма. На нем ComboBox (внутри список/прайс лист с числовыми кодами (пример: 1. Диагностика, 1.1. Программная диагностика, 2. Замена запчастей и т.д.)) и Edit. Компонент Edit можно заменить на другой (Memo, Label на крайняк..). Я сам всех их пробовал.

Нужно чтоб при выборе в ComboBox какого либо элемента в Edit выводилась цена (цифры - 350...450.. для каждого элемента ComboBox своя соответственно цена).

Весь вечер ищу и изучаю все что связано с этими компонентами.. Не получается избавиться от ошибки о несовместимости типов данных string и integer.

Только не отправляйте по ссылкам..сам знаю что ссылок на близко похожих тем можно сотни найти (Я ИХ ЧИТАЛ УЖЕ) .. лучше сами покажите и объясните. я новичек-самоучка, но не криворукий и не яйцеголовый)))

@kabardinec · 22.01.2017, 00:51 **[ТС]**

Сори что пропал.. Работа!

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

1 ComboBox1.Items.AddObject('1. Диагностика', TObject(350));

или

1* i := ComboBox1.Items.Add('1. Диагностика');
2* ComboBox1.Items.Objects[i] := TObject(350);

Ошибка: list index out of bounds (350)

@northener · 22.01.2017, 01:26

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

Сори что пропал.. Работа!

У всех работа.

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

Ошибка: list index out of bounds (350)

Не имеет отношения ни к одному твоему слову из описания проблемы, ни к одной из тех скудных строчек кода, которые ты привел.

@kabardinec · 22.01.2017, 01:35 **[ТС]**

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

У всех работа.

поздравляю! я просто извинился перед ребятами.. они мне помогают, а я пропал..

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

Не имеет отношения ни к одному твоему слову из описания проблемы, ни к одной из тех скудных строчек кода, которые ты привел.

1) эти строки не скудные
2) эти строки мне avstantso привел, чтоб я их применил у себя... что я и пытался сделать и выдал ошибку!!!

а так проблема решена!

Delphi
1
2
 if ComboBox1.Items[ComboBox1.ItemIndex]='1. Диагностика' then
              Edit6.Text:='350';

такие условия для каждой стоки в ComboBox1 и все..

я просто не понимал как работать с выбранной строкой ComboBox`а

@northener · 22.01.2017, 02:09

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

такие условия для каждой стоки в ComboBox1 и все..

Похоже ты и сейчас не всё понимаешь.
Вот тебе правильная строка нужного тебе кода. Попробуй её понять.

Delphi
1
Edit6.Text:=IntToStr(Integer(ComboBox1.Objects[ComboBox1.ItemIndex]));

@kabardinec · 22.01.2017, 09:20 **[ТС]**

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

Похоже ты и сейчас не всё понимаешь.
Вот тебе правильная строка нужного тебе кода. Попробуй её понять.

"Выбранная строка переводится в string и выводится в Edit6" - само название выбранной строки выводится.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277

	Связать ComboBox и Edit в Delphi 12.01.2017, 02:02. Показов 5593. Ответов 24 Метки нет (Все метки) Не могу разобраться. Есть форма. На нем ComboBox (внутри список/прайс лист с числовыми кодами (пример: 1. Диагностика, 1.1. Программная диагностика, 2. Замена запчастей и т.д.)) и Edit. Компонент Edit можно заменить на другой (Memo, Label на крайняк..). Я сам всех их пробовал. Нужно чтоб при выборе в ComboBox какого либо элемента в Edit выводилась цена (цифры - 350...450.. для каждого элемента ComboBox своя соответственно цена). Весь вечер ищу и изучаю все что связано с этими компонентами.. Не получается избавиться от ошибки о несовместимости типов данных string и integer. Только не отправляйте по ссылкам..сам знаю что ссылок на близко похожих тем можно сотни найти (Я ИХ ЧИТАЛ УЖЕ) .. лучше сами покажите и объясните. я новичек-самоучка, но не криворукий и не яйцеголовый))) 0