обращение к объектам по индексам

[Zo0M]

Есть необходимость обращения к существующим в делфи объектам по индексам.
Ну то есть чтобы так:

FormOpen[1].close

и т.д

Можно ли это сделать, без использования массива?

[Kotofff]

Один из способов примерно так :

var
  Comp: TComponent;
  Index:integer;
Begin
   Comp := FindComponent('CheckBox' + IntToStr(Index));
   TCheckBox(Comp).Checked := True;
end;

Суть я думаю ясна ...

[Zo0M]

Сообщение от Kotofff

Один из способов примерно так :
Суть я думаю ясна ...

Походу это не то.
Мне нужно создавать объекты в виде

MainForm[i]:=TForm.Create(self);

Либо, есть у кого-нибудь идея, как обращаться к одинаковым окнам (и не только окнам), которые создавались

MainForm:=TForm.Create(self);

Они создаются, но вот как их отличать?
Я пока использую MainForm.tag:=i а потом ищу по тагам, но похоже это неправильно...

[Stilet]

существующим в делфи объектам

Это невозможно. В Делфи нет объектов
Объекты есть в твоей программе, и обращение к ним по индексам зависит от той стратегии которую ты используешь.
Так что с либо ставь четко условие либо читай книги про TList и его потомков.

Они создаются, но вот как их отличать?

Screen.Forms

Даст тебе массив твоих форм-окон.

[Zo0M]

Сообщение от Stilet

Это невозможно. В Делфи нет объектов

Извиняюсь. Я имел ввиду компоненты. Для них есть решение?

Сообщение от Stilet

Так что с либо ставь четко условие либо читай книги про TList и его потомков.

Хорошо, спс прочту.

Сообщение от Stilet

Даст тебе массив твоих форм-окон.

Лан, это потыкаю...

[Marsel737]

var
  Form: TForm;
  I: integer;

procedure TForm1.NewFormCreate(Sender: TObject);
begin
  for I := 1 to 9 do
  begin
    Form := TForm.Create(Owner);
    with Form do
    begin
      Parent := self;
      Name := 'Form' + IntToStr(i + 1);
   end;
  end;
end;

Будет 10 форм, и к ним можно будет обращаться по имени Form2, Form3 и т.д.

[Zo0M]

Сообщение от Marsel737

var
  Form: TForm;
  I: integer;

procedure TForm1.NewFormCreate(Sender: TObject);
begin
  for I := 1 to 9 do
  begin
    Form := TForm.Create(Owner);
    with Form do
    begin
      Parent := self;
      Name := 'Form' + IntToStr(i + 1);
   end;
  end;
end;

А обращаться к ним также в цикле ведь нормально нельзя?

[Marsel737]

for i := 1 to 9 do
begin
  (FindComponent('Form' + IntToStr(i + 1) as TForm).Width := 100; // К примеру
end;

[evg_m]

TForm как наследник TComponent имеет след св-ва
Omponents
Componentcount
как наследник TControl
Controls
Countcontrol

for j:=self.componentcouut-1  downto 0
  (self.components[j] as TMyComponent).Delete;

for j:=self.controlcount-1  downto 0
  (self.controls[j] as Tcontrol).visible:=false;