Schleife mit variablen Komponentennamen?

[evilboy]

Ich hab auf einem Form zehn ComboBoxen. Die heißen ComboBox1, ComboBox2...ComboBox10. Kann man diese irgendwie mit ner Schleife ansprechen, wenn ich zum Beispiel alle auf ItemIndex 0 setzen möchte?

So in etwa:

for i := 1 to 10 do
begin
ComboBoxi.ItemIndex := 0;
end;

[Dani]

Hi,

Delphi-Quellcode:

var
 i: Integer;
 cBox: TComponent;
begin
 for i:=0 to 10 do
  begin
   cBox := Form1.FindComponent('ComboBox'+IntToStr(i));
   If cBox <> nil then 
    (cBox as TComboBox).ItemIndex := 0;
  end;
end;

[Duffy]

Hallo evilboy;

Delphi-Quellcode:

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TComboBox then
      TComboBox(Sender).ItemIndex := 0;
  end;
end;

oder so ..

bye
Claus