Значения с ListBox в Label

@LittleMonkey · Регистрация: 20.04.2014

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

Доброго времени суток!
Помогите, пожалуйста, с программой!
Задача:
Создать программу для демонстрации множественного избрания элементов списка.
Интерфейс:
- при загрузке возникает окно с заголовком - "Выбор элементов списка";
- в окне размещено: не редактируемый текст "Учебные предметы:"; ниже список типа ListBox (lbText) с множественным
выбором, содержащий названия учебных предметов; под ним - не редактируемый текст (lCase) с пустым содержанием.
Функциональность:
- lCase отображает все выбранные элементы lbText

Вопрос заключается в следующем, как написать, чтобы в Лейбл выводилось сразу несколько выбранных элементов с ЛистБокса?

Заранее спасибо!

DenNik · 15.10.2015, 14:37

multiselect:= true
далее в обработчике сканируешь все строки
if ListBox.Items[i].Selected then
вроде так. по памяти писал

@qwertehok · 15.10.2015, 14:38

Delphi

var i:integer;
begin
label.caption:='';
for i:=0 to listbox.items.count-1 do
begin
 if listbox.Selected[i] then label.caption:=label.caption+' | '+listbox.item[i].text;
end;

как то так

@LittleMonkey 1 / 1 / 0 Регистрация: 20.04.2014 Сообщений: 140
		1
	Значения с ListBox в Label 15.10.2015, 14:17. Показов 3695. Ответов 2 Метки нет (Все метки) Доброго времени суток! Помогите, пожалуйста, с программой! Задача: Создать программу для демонстрации множественного избрания элементов списка. Интерфейс: - при загрузке возникает окно с заголовком - "Выбор элементов списка"; - в окне размещено: не редактируемый текст "Учебные предметы:"; ниже список типа ListBox (lbText) с множественным выбором, содержащий названия учебных предметов; под ним - не редактируемый текст (lCase) с пустым содержанием. Функциональность: - lCase отображает все выбранные элементы lbText Вопрос заключается в следующем, как написать, чтобы в Лейбл выводилось сразу несколько выбранных элементов с ЛистБокса? Заранее спасибо! 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	15.10.2015, 14:37	2
	multiselect:= true далее в обработчике сканируешь все строки if ListBox.Items[i].Selected then вроде так. по памяти писал 0

	15.10.2015, 14:38

Значения с ListBox в Label

Решение