| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос про создание TLabel. [D7, XP]

vegarulez ©   (2008-02-26 15:52:00) 

привет всем мастерам!
Вопрос такой:
есть код создающий TShape`ы хочу аналогично создавать Tlabel`ы
Но почему то выдаёт ошибку - Acces violation at address...

type
 AShape = array of TShape;
 ALabel = array of TLabel;
...

 private
   { Private declarations }
   ledConnected: AShape;
   labelConnected: ALabel;
...

 for i:= 0 to (m - 1) do
 begin
   ledConnected[i]:= TShape.create(panel1);
   with ledConnected[i] do begin
     parent:= panel1;
     height:= 8;
     width:= 20;
     top:= 15;
     left:= x;  inc(x,25);
     brush.color:= clred;
   end;

   labelConnected[i]:= TLabel.create(panel1);
   with labelConnected[i] do begin
     parent:= panel1;
     height:= 8;
     width:= 20;
     top:= 15;
     left:= x;  inc(x,25);
     color:= clred;
   end;
 end;

Подскажите в чём проблема.

---

vegarulez   (2008-02-27 07:08:00) [1]

> Семеныч   (27.02.08 06:41) [4]


да ты прав, не увидел:
  setLength(ledConnected,maxConnections);

после чего сечас добавил
 setLength(labelConnected,maxConnections);

---

Семеныч   (2008-02-27 06:41:00) [2]

> vegarulez ©   (27.02.08 06:28) [3]

Этого не может быть. Где-то задана обязательно, иначе бы не работало.

---

vegarulez   (2008-02-27 06:28:00) [3]

> vegarulez ©   (27.02.08 06:11) [2]
> а нада ли задавать?


Задал - помогло. Но объясните почему так? У Tshape же не задан размер массива?

---

vegarulez   (2008-02-27 06:11:00) [4]

а нада ли задавать?
почему для TShape не требутся задание длинны?

---

MBo   (2008-02-26 16:00:00) [5]

массиву labelConnected длина задана?

---

Наверх