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

Как создать полную копию объекта?   Найти похожие ветки 

← →
AndreiR   (2003-01-14 16:41) [0]

Есть указатель на объект некоторго класса. Класс мы не знаем (Но знаем, что он потомок некоторого базового класса). Нужно создать копию этого объекта.
Вся проблема в том, что не удается создать экземпляр этого класса, так как сам класс неизвестен. Метод Create у свойства ClassType (MyObject.ClassType.Create) не помогает. Похоже он вообще не вызывает никаких конструкторов.
Надеюсь проблема понятна.
Спасибо.


← →
Skier ©   (2003-01-14 17:03) [1]

>AndreiR
см.
1) TObject.ClassName
2) GetClass(...)
3) RegisterClass(es)


← →
id_privin ©   (2003-01-14 17:05) [2]

NewInstance + Create + Assign = все получиться


← →
eheyler   (2003-01-14 17:13) [3]

конструкция MyObject.ClassType.Create вызывает
конструктор класса TObject.

Если у базового класса конструктор виртуальный,
то приведение к нему даст возможность вызвать
нужный конструктор.

MyObject2 = TBaseClass(MyObject.ClassType).Create(...);

(а если нет - то надо сделать
его виртуальным, поскольку создание объекта через
ссылку на класс без виртуальных конструкторов особого смысла не имеет, за исключением вырожденных случаев)

И далее
MyObject2.Assign(MyObject);
// Предполагается, что TMyClass - потомок TPersistent
// и ты переписал виртуальный метод Assign


← →
Skier ©   (2003-01-14 17:15) [4]

>AndreiR
Забыл 2 важные вещи
1) Конструктор - виртуальный
2) и для полной копии нужен Assign


← →
AndreiR   (2003-01-14 17:18) [5]

COOOOL!
Всем спасибо за помощь.
:-)


← →
eheyler   (2003-01-14 17:34) [6]

Да, ещё:
под TBaseClass я подразумевал

TBaseClass = class of TBase;

где TBase - твой базовый класс



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

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



Память: 0.46 MB
Время: 0.013 c
1-72360
April
2003-01-12 11:27
2003.01.23
Как с формы удалить все компоненты, кроме как дестроить каждую?


3-72090
vvolkov
2002-12-28 16:12
2003.01.23
Можно ли к TQuery добавить калькулируемое поле?


6-72451
LEgO-2
2002-11-24 02:57
2003.01.23
Авторизация


3-72082
wHammer
2002-12-26 14:02
2003.01.23
Можно ли получить соединение наборов данных двух TQuery?


1-72190
iap
2003-01-13 15:50
2003.01.23
TListView




   Наверх