[TEKTON]

Приветствую.
Значит проблема такая:

На форме есть несколько ComboBox*в.
И есть ListBox со значениями.

Мне надо загрузить ComboBox*ам значения из ListBox
Именно весь список значений в каждый ComboBox.

Что б получилось что то типо такого:

Код:

var 
i:integer;
for i :=15 to 25 do
begin
Form1.ComboBox[i].Items:= Form1.ListBox1.Items;
end;

Спасибо.

[lmikle]

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

Приветствую.
Значит проблема такая:

На форме есть несколько ComboBox*в.
И есть ListBox со значениями.

Мне надо загрузить ComboBox*ам значения из ListBox
Именно весь список значений в каждый ComboBox.

Ну так грузи:

Код:

Form1.ComboBox1.Items.Assign(Form1.ListBox1.Items);
Form1.ComboBox2.Items.Assign(Form1.ListBox1.Items);
...

[TEKTON]

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

Ну так грузи:

Код:

Form1.ComboBox1.Items.Assign(Form1.ListBox1.Items);
Form1.ComboBox2.Items.Assign(Form1.ListBox1.Items);
...

Это понятно.
Но дело в том, что ComboBox*ов много.
И если каждому присваивать значение, то это целая "простыня" получится.
Работать будет, не спорю.
Но хочется код оптимизировать.

И я хочу в цикле присваивать им индексы
Сделать типо перебора ComboBox*ов (с 15го по 25й)

Код:

Тут цикл
begin
Form1.ComboBox[i].Items.Assign(Form1.ListBox1.Items);
end;

Как сделать конструкцию ComboBox[i] ?

[Alegun]

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

...хочу в цикле присваивать им индексы
Сделать типо перебора ComboBox*ов (с 15го по 25й)...

Ну, здесь несколько вариантов, если других комбиков нету (с 1го по 14й и с 26го до N), то можно перебором компонентов на форме, примерно так

Код:

for i := 0 to Form1.ComponentCount - 1 do
  if Form1.Components[i] is TComboBox then
     (Form1.Components[i] as TComboBox).Items.Assign(Form1.ListBox1.Items);

а если есть, то тогда поиском,можно так

Код:

for i := 15 to 25 do
  if Form1.FindComponent('ComboBox' + IntToStr(i)) <> nil then
   (Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).Items.Assign(Form1.ListBox1.Items);

[TEKTON]

Alegun, спасибо огромное!

Второй вариант то что нужно!
Тему можно прикрыть.

[TEKTON]

Погонял программку, но работает не очень коректно.

В ComboBox*сы список загружается, но при клике на кнопке обработчика, данные из ComboBox*а не брабатываются, как буд то ComboBox пустой.
Скорее всего это связано с ItemIndex*ом.

Но если открыть ComboBox и выбрать значение вручную, то всё работает нормально.

Как дополнить цикл, что б программно выбиралось первое значение из ComboBox ?
Короче надо съэмулировать, как будто я открыл ComboBox и выбрал первое значение.