Подгрузка списка в зависимости от значения 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;