Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Сен

Подгрузка списка в зависимости от значения CheckBox

Posted by micher under Delphi

Имеется ComboBox в котором можно выбрать например женские имена и мужские, как сделать так чтобы при выборе женские имена у меня в CheckListBox показывалось (Маша, Лена, Настя) а при выборе мужских (Саша, Андрей, Миша, Дима)?

doktor255



var

  Form1: TForm1;

  Names1: array [0..2] of string = ('Маша', 'Даша', 'Ксюша');

  Names2: array [0..2] of string = ('Серёжа', 'Ваня', 'Петя');

implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);

var i: integer;

begin

CheckListBox1.Clear;

if ComboBox1.Text = 'Женские' then

for i := Low(Names1) to Length(Names1) - 1 do

CheckListBox1.Items.Add(Names1);

if ComboBox1.Text = 'Мужские' then

for i := Low(Names1) to Length(Names1) - 1 do

CheckListBox1.Items.Add(Names2);

end;