Текущий архив: 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.45 MB
Время: 0.006 c