RTTI при использовании динамических объектов

← →
Death Soul (2002-04-01 22:22) [0]

Есть след. стуктуры:

Type

PShape = ^TShape;
TShape = Class (TObject)
...
End;

PRectangle = ^TRectangle;
TRectangle = Class (TShape)
...
End;

PTriangle = ^TTriangle;
TTriangle = Class (TShape)
...
End;

Далее имеется контейнер указателей

List : TList;

В него заносим через указатель P : POINTER различные элементы
Rectangle : PRectangle и Triangle : PTriangle. Потом через базовый указатель Shape : PShape пытаемся их растипизироать и "вытащить".

ВОПРОС :

КАК БЕЗ ИСПОЛЬЗОВАНИЯ P : POINTER ПЕРЕПРИСВОИТЬ УКАЗАТЕЛИ И ПОЛУЧИТЬ ДОСТУП К ПОЛЯМ И МЕТОДАМ ОБЪЕКТА

Rectangle := Shape
или
Triangle := Shape

ГДЕ ЗАРАНЕЕ ИЗВЕСТНО, ЧТО Shape СОДЕРЖИТ УКАЗАТЕЛЬ НА Rectangle или Triangle;

Заранее СПАСИБО !!!

RTTI при использовании динамических объектов Найти похожие ветки