Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.15;
Скачать: CL | DM;

Вниз

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;

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


 
vuk ©   (2002-04-01 22:45) [1]

А зачем использовать конструкцию типа PShape = ^TShape;? Для "старых" объектных типов это еще подходит, но для классов переменная и так будет указателем, поэтому все это лишнее. В данном случае все делается гораздо проще.

var
List : TList; //можно TObjectList


List := TList.Create;
List.Add( TRectangle.Create(...));
...
List.Add( TTriangle.Create(...));

пример перебора (с использованием проверки типа через IS)
for i := 0 to List.Count - 1 do
if TObject(List[i]) is TRectangle then ...
else
if TObject(List[i]) is TTriangle then ...;





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

Текущий архив: 2002.04.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-46251
harismatik
2002-03-25 16:57
2002.04.15
Настройка клиента базы данных


3-46256
alexpsico
2002-03-25 19:06
2002.04.15
как сбросить кэш БДЕ на винт


3-46270
vopros
2002-03-26 09:24
2002.04.15
Как программно добавить поле в таблицу Paradox. Знаю что вопрос недавно был. Но я его не нашел.


3-46257
Makc
2002-03-25 17:52
2002.04.15
Почему она пишет field w is an unknown type?


1-46302
Дима2
2002-04-02 16:40
2002.04.15
PolyLine