Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Подскажите в чем может быть причина создаю массив меток таким [D7, XP]

smartleds © (2008-04-10 19:27:00)
образом
объявление
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'
не пойму что ему не нравится ?

{RASkov} (2008-04-10 21:30:00) [1]
> [5] MsGuns © (10.04.08 20:47)
> Это на новоукраинском ?

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

MsGuns (2008-04-10 20:47:00) [2]
>{RASkov} © (10.04.08 20:30) [4]
>procedure ini tcialization(AOwner: TComponent; AParent: TWinControl);

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

{RASkov} (2008-04-10 20:30:00) [3]
Или как вариант можно так:
procedure initcialization(AOwner: TComponent; AParent: TWinControl);

Семеныч (2008-04-10 20:00:00) [4]
> smartleds (10.04.08 19:36) [2]

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

smartleds (2008-04-10 19:36:00) [5]
вы имеете ввидк так :
procedure tform1.initcialization(Sender: TObject);

MsGuns (2008-04-10 19:30:00) [6]
Сделать процедуру методом класса формы

Наверх

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