[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 и выбрал первое значение.

[Aristarh Dark]

ComboBox.ItemIndex:=Значение_которое_ты_хочешь
Если нужно первое, то 0.

[TEKTON]

Сообщение от Aristarh Dark

ComboBox.ItemIndex:=Значение_которое_ты_хочешь
Если нужно первое, то 0.

Код естественно не работает и не будет.

Код:

[dcc32 Error] Unit1.pas(763): E2003 Undeclared identifier: 'ComboBox'

Говорит- не знаю я безымянный ComboBox.

Повторю ещё раз вопрос:
Как дополнить цикл который привёл Alegun ?

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

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

Код:

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);

Как сюда дописать этот ComboBox.ItemIndex:=0; ?

Тип такого ?

Код:

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);
  (Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex:=0;
 end;

?

[nixon232]

Код:

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);
  (Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex:=0;
 end; // тут конец 

есть конец, а где начало?

[Alegun]

Многовато что-то вызовов функции поиска компонентов за один проход получается, тогда лучше завести переменную типа TComponent, "найти" в неё нужный комбик и работать уже с ним. Ну и соблюдение орфографии и блочных конструкций используемого ЯП

[lmikle]

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

Код:

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);
**(Form1.FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex:=0;
*end; // тут конец 

есть конец, а где начало?

конец-то конец. Но лучше как-то так:

Код:

var
  I : Integer;
  cb : TComboBox;
begin
  for i := 15 to 25 do
  begin
    cb := TComboBox(Form1.FindComponent('ComboBox' + IntToStr(I)));
   if cb <> Nil Then
    begin
      cb.Items.Assign(Form1.ListBox1.Items);
      cb.ItemIndex := 0;
    end;
  end;
end;