Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизRTTI при использовании динамических объектов Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c