> On Sep 6, 2017, at 8:03 PM, Graeme Geldenhuys <[email protected]>
> wrote:
>
> I couldn't call .Free because FHook was a interface reference type of type
> IHook, not THook.
But TInterfacedObject is a class isn’t it? Then you call FHook := THook.Create;
so a I’d expect a Free(). What am I missing?
type
THook = class(TInterfacedObject, IHook)
private
procedure DoIt;
end;
Regards,
Ryan Joseph
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
