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

?