Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.03.23;
Скачать: 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 вся ветка

Текущий архив: 2008.03.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
2-1204100700
DimOk
2008-02-27 11:25
2008.03.23
Формы fsMDIChild в DLL


6-1183235019
TNMNNTP
2007-07-01 00:23
2008.03.23
TNMNNTP


15-1202903455
Ega23
2008-02-13 14:50
2008.03.23
Кто с OpenOffice плотно работал?


11-1186478815
kichrot
2007-08-07 13:26
2008.03.23
Уничтожение не модальной формы с Parent = nil


8-1177567835
givigudze
2007-04-26 10:10
2008.03.23
Звук м,е,