Скачать: 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 вся ветка

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



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