Reminder to Self: {The class used to catch attempts to execute a virtual method of a freed object} TFreedObject = class public procedure GetVirtualMethodIndex; procedure VirtualMethodError; {$ifdef CatchUseOfFreedInterfaces} procedure InterfaceError; {$endif} end; If you encounter the class TFreedObject*when doing a cast, then you’re working on a freed object and have FastMM4 enabled to detect that. […]
Weiterlesen...