ComboBox и For

[chex01]

Как правильно (компактно) записать через цикл это:
ComboBox1.Items.LoadFromFile('data/naimen.ini');
ComboBox2.Items.LoadFromFile('data/naimen.ini');
ComboBoxN.Items.LoadFromFile('data/naimen.ini');

Допустим у меня 1000 ComboBox'ов...

[Человек_Борща]

Как минимум воспользоваться таким подходом:

for i:=0 to Form1.ComponentCount -1 do
begin
  if (Form1.Components[i] is TComboBox) then
  begin
  (Form1.Components[i] as TComboBox).LoadFromFile();
  end;
end;

Но тут проблема...
На форме могут быть и нужные тебе комбобоксы(не для этих целей).
Вариант выхода:
1. дать всем компонентам имена ComboNeed_n - число от 0 до кол-ва компонентов..

И код немного измениться:

for i:=0 to Form1.ComponentCount -1 do
begin
  if (Form1.Components[i] is TComboBox)  and ((Form1.Components[i].Name = 'ComboNeed_'+IntToStr(i)) then
  begin
  (Form1.Components[i] as TComboBox).LoadFromFile();
  end;
end;

Либо поступить проще, все компбобоксы закинуть на TPanel.. тогда сделать так:

for i:=0 to Panel1.ComponentCount -1 do
begin
  if (Panel1.Components[i] is TComboBox) then
  begin
  (Panel1.Components[i] as TComboBox).LoadFromFile();
  end;
end;