Comments 2
Я бы не назвал это «без грязных хаков». Если вам так нужно получить наследников TGraphic, то гораздо лучше просто внести правки в VCL и подключить измененый модуль к проекту. А это все более чем грязный хак, я уж умалчиваю о том, на сколько медленно он будет работать. На сколько я понимаю вы каждый удаляемый объект проверяете на причастность к TGraphic, а значит тяжесть алгоритма линейно растет с ростом программы, что для такой простой задачи совершенно неприемлимо.
Я уж молчу про то, что вы отлавливаете объекты на их удалении, что поднимает вопрос о том, а в какой момент полный список будет вообще доступен? Будет ли он доступен в консольном приложении?
Я уж молчу про то, что вы отлавливаете объекты на их удалении, что поднимает вопрос о том, а в какой момент полный список будет вообще доступен? Будет ли он доступен в консольном приложении?
Для начала отвечу на вопрос. Да будет. Демка это как раз консольное приложение.
Не каждый удаляемый объект проверяется на причастность к TGraphic. Только пока висит обработчик OnDebugFreeMemFinish. После получения списка он обнуляется и все работает как обычно с включенной отладкой в FastMM. Соответственно далее работать будет не медленнее чем обычно работает с отладкой памяти в FastMM.
Не каждый удаляемый объект проверяется на причастность к TGraphic. Только пока висит обработчик OnDebugFreeMemFinish. После получения списка он обнуляется и все работает как обычно с включенной отладкой в FastMM. Соответственно далее работать будет не медленнее чем обычно работает с отладкой памяти в FastMM.
Sign up to leave a comment.
Получаем список графических классов зарегистрированных в TPicture.RegisterFileFormat