Скачать: CL | DM;

Вопрос про создание TLabel.   Найти похожие ветки 

← →
vegarulez ©   (2008-02-26 15:52) [0]

привет всем мастерам!
Вопрос такой:
есть код создающий 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;

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

---

← →
MBo ©   (2008-02-26 16:00) [1]

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

---

← →
vegarulez ©   (2008-02-27 06:11) [2]

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

---

← →
vegarulez ©   (2008-02-27 06:28) [3]

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


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

---

← →
Семеныч   (2008-02-27 06:41) [4]

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

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

---

← →
vegarulez ©   (2008-02-27 07:08) [5]

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


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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c