Столкнулся с непонятной вещью, которую не могу объяснить.  И через это прошу помощи зала.

Есть некий класс - назовем его "[i]Фабрика[/i]". Он создает в процедуре, экземпляры неких третьих классов, назовем их "[i]Класс1[/i]" и "[i]Класс2[/i]", инициализирует их своим контекстом, но [u]нигде у себя ссылок на созданные объекты не сохраняет[/u], а сразу передает клиенту.  Вот его код:
[code]Функция Создать(_имя) Экспорт
     _класс = СоздатьОбъект(_имя);
     _класс.УстановитьКонтекстФабрика(Контекст);
     Возврат _класс;
КонецФункции
// ***
Процедура Конструктор()
     Сообщить("Конструктор ""фабрика"" ");
КонецПроцедуры
// ***
Процедура Деструктор()
     Сообщить("Деструктор ""фабрика"" ");
КонецПроцедуры[/code]


Классы "[i]класс1[/i]" и "[i]класс2[/i]", в свою очередь хранят у себя контекст класса "[i]Фабрика[/i]", но сами в "[i]Фабрике[/i]" не хранятся.  Вот их код:
[code]Перем _контекстФабрика;
перем _имяКласса;

Процедура Конструктор()
     _имяКласса = Строка(вирт());
     Сообщить("Конструктор "+_имяКласса);
КонецПроцедуры
// ***
Процедура УстановитьКонтекстФабрика(_конт)  Экспорт
     _контекстФабрика = _конт;
КонецПроцедуры
//***
Процедура Деструктор()
     Сообщить("Деструктор "+_имяКласса);
КонецПроцедуры
[/code]


И есть такая простенькая обработочка :

[code]      _оФабрика = СоздатьОбъект("Фабрика");
     Сообщить("Создаем класс 1");
     _оКласс1 = _оФабрика.Создать("Класс1");
     Сообщить("Создаем класс 2");
     _оКласс2 = _оФабрика.Создать("Класс2");
     Сообщить("Уничтожаем класс 1");
     _оКласс1 = 0;
     Сообщить("Уничтожаем класс 2");
     _оКласс2 = 0;
     Сообщить("Уничтожаем фабрику");
     _оФабрика = 0;[/code]

так вот, судя по логам. Уничтожается только объект класса "Класс1", а объект класса "Класс2" и "Фабрика" не уничтожаются (даже после закрытия окна формы). Вопрос - почему ? Единственное разумное объяснение - циклические ссылки, но мне их в этом примере не видно :(

выгрузка в аттаче.

ЗЫ Первоначально это все [i]не работало[/i] через "Делегат", но упростив пример, я понял, что не в делегате дело.

О ! Шаманский бубен  

С этим заклинанием работает И шо это было ?  

Т.е. всегда есть неявная ссылка на последнее возвращенное значение в модуле ? так что ли ?

upd почитал про подобное вот здесь http://itland.ru/forum//index.php?showtopic=820&hl=%EF%EE%E6%E8%F0%E0%F2%E5%EB%F...

Там, правда, говорится про функцию, но, я так полагаю, проблема с последним возвращенным значением применима к объекту в целом

mash писал(а) 14. Июля 2009 :: 13:29:

да, там теже грабли.
Но только предложенное там решение - пересоздание глобальной фабрики, тебе не подойдет, т.к. у тебя получилась неявная циклическая ссылка.

Это упрощенный практический пример.  В оригинале там используется  Делегат, но суть та же.

Классы Класс1, Класс2 - алгоритмы некоего мультиалгоритмического документа (типа ЗакрытиеМесяца), класс Фабрика - коллекция этих алгоритмов. Клиент (модуль документа) - получает (с помощью класса Фабрика) экземпляры нужных ему классов алгоритмов, которые при своей работе отправляют в объект класса Фабрика сообщения трассировки (с помощью вызова через Делегат метода класса Фабрика), где они и собираются с помощью объекта агрегированного класса Трассировка.

При необходимости (аргументе метода Провести()) клиент делает _оФабрика.ПоказатьТрассировку() и выскакивает окно подобное трассировкам из стандартных конфигураций.

Сейчас я переделал вызовы с

_оКОП = ПолучитьАлгоритм(_имяАлгоритма); 

на

_флПолученУспешно = ПолучитьАлгоритм(_имяАлгоритма, _оКОП); 

и утечек больше нет Заодно и обработку исключительных ситуаций (когда экземпляр класса алгоритма создать невозможно) без выброса из программы настроил

В принципе, можно, конечно, и так.

Но тут я преследовал две цели:

• Создание простого, универсального механизма взаимодействия объекта классов-коллекций с объектами классов-членов через делегата.
• Максимальное сокрытие механизмов трассировки (и самого объекта оТрассировка) в соответствии с принципами инкапсуляции. Кроме того - все работы по обработке сообщений (присвоение тегов, уровней итп) удобнее вести в одном месте, чтобы проще было потом менять, если что.