перебор объектов TCheckBox на форме

← →
-=snoop=- © (2005-07-20 06:42) [0]

привет всем, подскажите как можно в цикле перебрать 15 объектов TCheckBox на форме?
делаю вот как
var i : integer ; ComboBox : TComboBox ; begin ComboBox := TComboBox.Create(form2); ComboBox.Name := "ComboBox" ; for i := 1 to 15 do begin ComboBox[i].ItemIndex := -1 end ;
не получается

← →
ЮЮ © (2005-07-20 07:33) [1]

TCheckBox в subj, TComboBox - в коде

ComboBox[i].ItemIndex
откуда i, если ComboBox : TComboBox ?

Тогда уж

var
i : integer ;
ComboBoxes : array[1..5] of TComboBox ;
begin
for i := 1 to 15 do begin
ComboBox := TComboBox.Create(form2);
ComboBox.Left :=
...
ComboBox.Parent := form2;
ComboBoxes[i] := ComboBox;
end ;

Если с ComboBoxes предполагается дальнейшая работа как с массивом, то лучше сделать не локальной переменной, а privare полем формы

← →
Джо © (2005-07-20 07:46) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount-1 do
begin
if Components[I] is TComboBox then
ShowMessage(TComboBox(Components[I]).Text)
end;
end;

← →
-=snoop=- © (2005-07-20 08:06) [3]

Спасибо всем!! = работает!

← →
-=snoop=- © (2005-07-20 08:13) [4]

а как обратиться к свойству ItemIndex этого объекта??

← →
Джо © (2005-07-20 08:43) [5]

> [4] -=snoop=- © (20.07.05 08:13)
> а как обратиться к свойству ItemIndex этого объекта??

Точно также, как и к свойству Text в примере из [2] Джо ©.

> var
> i : integer ;
> ComboBox : TComboBox ;
> begin
> ComboBox := TComboBox.Create(form2);
> ComboBox.Name := "ComboBox" ;
> for i := 1 to 15 do
> begin
> ComboBox[i].ItemIndex := -1
> end ;

Ух, аж дух захватило... Что это за бред? Так сказать, в чем первооснова такого кода - ведь откуда-то такое нужно было взять?

не знание=сила!

перебор объектов TCheckBox на форме Найти похожие ветки