Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.11;
Скачать: CL | DM;

Вниз

Подскажите в чем может быть причина создаю массив меток таким   Найти похожие ветки 

 
smartleds   (2008-04-10 19:27) [0]

образом
объявление
var   ArrOfLabel:array of Tlabel;
Заполнение массива в процедуре  formCreate
SetLength(ArrOfLabel,amount_channels);
for i:=0 to amount_channels-1 do
  begin
ArrOfLabel[i]:=TLabel.Create(self);
ArrOfLabel[i].Parent:=Form1;
ArrOfLabel[i].Width:=20;
ArrOfLabel[i].Height:=20;
ArrOfLabel[i].Left:=X2;
ArrOfLabel[i].Top:=Y2+150;
ArrOfLabel[i].caption:=inttostr(i);
end ; //for i
Проблема в следующем если хочу заполнение массива внести в отдельную процедуру инициализации
то компилятор ругается на строку
ArrOfLabel[i]:=TLabel.Create(self);
пишит
[Error] testarray.pas(149): Undeclared identifier: "self"
не пойму что ему не нравится ?


 
MsGuns ©   (2008-04-10 19:30) [1]

Сделать процедуру методом класса формы


 
smartleds   (2008-04-10 19:36) [2]

вы имеете ввидк так :
procedure  tform1.initcialization(Sender: TObject);


 
Семеныч   (2008-04-10 20:00) [3]

> smartleds   (10.04.08 19:36) [2]

Да, только Sender не нужен. Сделайте совсем без параметров.


 
{RASkov} ©   (2008-04-10 20:30) [4]

Или как вариант можно так:
procedure initcialization(AOwner: TComponent; AParent: TWinControl);


 
MsGuns ©   (2008-04-10 20:47) [5]

>{RASkov} ©   (10.04.08 20:30) [4]
>procedure initcialization(AOwner: TComponent; AParent: TWinControl);

Это на новоукраинском ?
;)


 
{RASkov} ©   (2008-04-10 21:30) [6]

> [5] MsGuns ©   (10.04.08 20:47)
> Это на новоукраинском ?

Ну это автору виднее на каком)
Я честно признаюсь - украл название с поста чуть выше:)



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
15-1207018123
Slider007
2008-04-01 06:48
2008.05.11
С днем рождения ! 1 апреля 2008 вторник


2-1207746625
FoxikM
2008-04-09 17:10
2008.05.11
Как закрыть порт на время.


15-1206194398
TUser
2008-03-22 16:59
2008.05.11
В чипсет


2-1207834516
bagos
2008-04-10 17:35
2008.05.11
выход из зацикливания


15-1206401988
Поп Гапон
2008-03-25 02:39
2008.05.11
Перегнать строку в Unicode, зная ее LangID