Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизА существует ли такое дерево у которого ветки могли бы ссылаться Найти похожие ветки
← →
ЮЮ (2004-02-25 09:07) [21]TSuperCrossedObject = class
private
FParent: TObject;
FChildren: TObjectArray;
FIndirectChildren: TObjectArray;
FIndirectParents: TObjectArray;
public
function AddChild(Child: TObject): integer;
procedure InsertChild(Child: TObject; Idx: integer);
procedure MoveChild(FromIdx, ToIdx: integer);
function RemoveChild(Idx: integer): TObject;
function AddIndirectChild(Child: TObject): integer;
procedure InsertIndirectChild(Child: TObject; Idx: integer);
procedure MoveIndirectChild(FromIdx, ToIdx: integer);
function RemoveIndirectChild(Idx: integer): TObject;
end;
где кроме прямых связей владения поддерживаем ссылочные (Indirect) связи
в Destructor-е необходимо "разорвать" ссылочные связи перед уничтожением объекта
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c