Вниз
Скачать: CL | DM;

Создание нового объекта из данного   Найти похожие ветки 

 
Григорий Поваров   (2003-05-16 16:48) [0]

Есть объект, надо создать новый того же класса. В настоящий момент делается следующим образом, но что-то мне кажется, что это не самый верный способ:


var
NewItem : TNameSpaceItem;
begin
// Item является наследником от TNameSpaceItem
NewItem := Item.ClassType.Create() as TNameSpaceItem;
NewItem.Create();
// ...
end;

Буду благодарен.


 
Skier ©   (2003-05-16 16:51) [1]

>Григорий Поваров
1) RegisterClass(es)
2) GetClass or FindClass


 
Skier ©   (2003-05-16 16:54) [2]

>Григорий Поваров
в твоём случае лучше через метакласс

TNameSpaceItemСlass = class of TNameSpaceItem;


 
Григорий Поваров   (2003-05-16 17:04) [3]

Item является наследником от TNameSpaceItem - их много разных - какой именно я не знаю. Но мне надо создать экземпляр именно того класса, каким является Item, а не какого-то другого пусть тоже наследника от TNameSpaceItem.


 
rounin   (2003-05-16 17:05) [4]

type
TNameSpaceItemСlass = class of TNameSpaceItem;
...

NewItem := TNameSpaceItemClass(Item.ClassType).Create;

Конструктор должен быть виртуальным, введённый в классе
TNameSpaceItem

//NewItem.Create(); - это выкинуть


 
VMcL ©   (2003-05-16 17:11) [5]

Если конструктор виртуальный, то вроде, должно сработать так:


TNameSpaceItemClass = class of TNameSpaceItem;
...
NewItem := TNameSpaceItemClass(Item.ClassType).Create(...);


 
Григорий Поваров   (2003-05-16 17:14) [6]

thnx a lot



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

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



Память: 0.46 MB
Время: 0.012 c
3-94724
Guest1231231
2003-05-08 15:34
2003.05.29
row cannot be located for updating


1-94916
xfrost
2003-05-15 18:45
2003.05.29
TChart плавные графики


7-95146
Андрей Терехов
2003-03-30 18:04
2003.05.29
Отображение прогресса копирования


14-95126
PKK
2003-05-12 17:15
2003.05.29
bignum,


1-94965
Test
2003-05-18 18:01
2003.05.29
Как в консоле устанавливать цвета? Очистка экрана и т.п.????




   Наверх