Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Нужно в RUN-Time создавать экземпляры некоторых объектов (для при 


NS   (2002-04-17 11:57) [0]

{ Нужно в RUN-Time создавать экземпляры некоторых объектов (для примера
TLabel) и хранить их (указатели на них) в TList.
}
PMyLabel = ^TMyLabel; // указатель на мой тип
TMyLabel = class(TLabel) // мой тип
public
S: string;
end;
var
MyLabel: TMyLabel;
ListLabel: TList;
Form1: TForm1;

implementation
{$R *.DFM}
// --------- Создание формы -----------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
ListLabel:= TList.Create; //созд. список указателей
ListLabel.Clear; // очищаем его

MyLabel:= TMyLabel.Create(Owner); //создаем экземп. объекта
ListLabel.Add(MyLabel); //добавляем указатель нанего в список

// А ЭТО НЕ РАБОТАЕТ хотя компилятор пропускает
PMyLabel(ListLabel.Items[0])^.Caption:= "qqqqqqq";
end;
// А может как-то всё по другому нужно делать.



SergeiV   (2002-04-17 12:23) [1]

В Ваш код закралась ошибка
PMyLabel(ListLabel.Items[0])^.Caption:= "qqqqqqq";
замените на
TMyLabel(ListLabel.Items[0]).Caption:= "qqqqqqq";
и все получиться.



yaJohn   (2002-04-17 12:37) [2]

MyLabel: TMyLabel это уже указатель. Нет нужды использовать ^




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх








Память: 0.75 MB
Время: 0.029 c
1-94404           Roman9                2002-04-07 10:57  2002.04.29  
Как запустить из одного exe-файла другой?


4-94616           Deus                  2002-02-23 00:30  2002.04.29  
Кто-нибудь работал с GpSysHook?


1-94425           GBF                   2002-04-15 15:05  2002.04.29  
Как несколько файлов упаковать в один внешний


1-94436           Fast                  2002-04-15 19:28  2002.04.29  
кодировка


1-94478           Марина                2002-04-16 08:37  2002.04.29  
Install Shield Express