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