Создание обьектов, В чем ошибка Опции

[CMOS]

Как создать массив обьектов?

Например:

var a: Array[1..36] of TImage;

Мне нужно чтобы каждый обьект появлялся в свое время и в нужном месте
Пробовал:

a[n].Create(...)

А что в скобках писать?
Если:

a[1]:=TButton.CreateParented(Form1.Handle)

Не получается.
Объект не появляется даже если задать все размеры, координаты, указать картинку.

[Romtek]

Complementary Metal-Oxyde Semiconductor, простите, CMOS,
во первых, принято использовать не массив, а TList - массив указателей.

const
     count = 36;
var
     List : TList;
     Image: TImage;
     i: integer;
     
begin
     List := TList.Create(); // создать список
     
     // создать список картинок
     for i := 0 to Pred (count) do
     begin
          Image := TImage.Create;
          List.Add (Image);
     end;     

     //
     {использовать этот список}
     //
     
     // освободить память для картинок
     for i := 0 to Pred (count) do
     begin
          Image := List.Items[i];
          Image.Free ();
     end;     
     
     List.Free (); // освободить память списка
end.

Во-вторых, не делай всё сразу, а поэтапно.

[CMOS]

В строчке

Image := TImage.Create;

Ошибка "Non enough actual parametrs", просит параметр типа TComponent.
Мне картинки нужно перебирать по индексу:

for n:= 1 to 36 do
i[n].Picture.BitMap.LoadFromResourceID (0, 13*Get2High(a[n])+GetLow(a[n])-1);

А в Вашем случае как? Так что-ли:

List.Items[i].Picture...

Сообщение отредактировано: CMOS - 9.07.2005 21:35

[volvo]

В строчке

Image := TImage.Create;

Ошибка "Non enough actual parametrs", просит параметр типа TComponent.

Ну, так дай ему этот параметр... Создание списка картинок происходит при создании формы?

Image := TImage.Create(Self);

Мне картинки нужно перебирать по индексу:

For i := 0 to 35 do // На индексы обрати внимание ...
  List.Items[i].Picture.BitMap.LoadFromResourceID...