Как сделать подстановку данных из ComboBox в Label

@Goldkeyomsk · Регистрация: 27.04.2015

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

Добрый день уважаемы форумчане.
Подскажите пожалуйста, на примере
Как сделать подстановку из ComboBox в Label

например такая задача
в ComboBox перечислены позиции
к примеру список состоит из
строка 0 - Соната-М
1 - Соната-У
2 - Соната-К

необходимо где то или как то задать каждому значению из списка определенную цифру
например

строка 0 - должна иметь цифру 100
1 - цифру 105
2 - цифру 110

и эти цифры должны отображаться в поле Label

Подскажите как правильно написать данный пример
Спасибо!!!

@northener · 27.04.2015, 14:32

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

Label1.Caption:=IntToStr(Integer(Combobo x1.Items.Objects[Combobox1.ItemIndex]));

А вот эту строчку лучше засунуть как раз в ComboBox1Change

@Goldkeyomsk · 27.04.2015, 14:53 **[ТС]**

ОООООООО
заработало !!!!!!!!

Добавлено через 18 минут
а как теперь сделать автоматический подсчет
например
есть 2 поля Edit
нужно что бы в поле Label автоматически происходило сложение/умножение цифр в полях Edit
что бы после заполнения последнего поля edit эта сумма появлялась в label

Verevkin · 27.04.2015, 15:00

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

а как теперь сделать автоматический подсчет
например
есть 2 поля Edit
нужно что бы в поле Label автоматически происходило сложение/умножение цифр в полях Edit
что бы после заполнения последнего поля edit эта сумма появлялась в label

Теперь в одной теме будешь 100500 вопросов задавать?

Добавлено через 1 минуту
Может быть, вместо 100500 вопросов прочитаешь хотя бы матчасть из (хотя бы одной) хорошей книжки?
Время бы сэкономил и себе и нам.

@Goldkeyomsk · 27.04.2015, 15:00 **[ТС]**

неее. это последний был вопрос, что бы темы не плодить

Verevkin · 27.04.2015, 15:13

Эдитов-то всего сколько?
Цифры или, таки, числа?
Целые или, таки, вещественные?
Сложение или, таки, умножение?

@Goldkeyomsk · 28.04.2015, 06:05 **[ТС]**

например вот так
формула

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
p,r:real;
begin
p:=StrToFloat(Edit6.Text);
r:=20*LogN(10,p);
Label22.Caption:=FloatToStrF(r,ffFixed,6,2);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
button3.Caption:=FloatToStr(StrToFloat(Edit1.text)+15);
end;

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Goldkeyomsk 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 26

	Как сделать подстановку данных из ComboBox в Label 27.04.2015, 12:11. Показов 2767. Ответов 25 Метки нет (Все метки) Добрый день уважаемы форумчане. Подскажите пожалуйста, на примере Как сделать подстановку из ComboBox в Label например такая задача в ComboBox перечислены позиции к примеру список состоит из строка 0 - Соната-М 1 - Соната-У 2 - Соната-К необходимо где то или как то задать каждому значению из списка определенную цифру например строка 0 - должна иметь цифру 100 1 - цифру 105 2 - цифру 110 и эти цифры должны отображаться в поле Label Подскажите как правильно написать данный пример Спасибо!!! 0

@Goldkeyomsk 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 26
	27.04.2015, 14:53 [ТС]
	ОООООООО заработало !!!!!!!! Добавлено через 18 минут а как теперь сделать автоматический подсчет например есть 2 поля Edit нужно что бы в поле Label автоматически происходило сложение/умножение цифр в полях Edit что бы после заполнения последнего поля edit эта сумма появлялась в label 0

@Goldkeyomsk 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 26
	27.04.2015, 15:00 [ТС]
	неее. это последний был вопрос, что бы темы не плодить 0

Verevkin Нарушитель 10897 / 5831 / 1289 Регистрация: 12.03.2015 Сообщений: 26,909
	27.04.2015, 15:13
	Эдитов-то всего сколько? Цифры или, таки, числа? Целые или, таки, вещественные? Сложение или, таки, умножение? 0