[fpc-pascal] Implementing an interface force me to add _AddRef, _Release

[Graeme Geldenhuys]

Extending the example program a but further to test for not supported
interfaces I found that the cast (via as syntax) to get a interface gives a
compiler error [test 3 it program]. Using supports() still worked though
[test 4 in program].


Cheers,
  - Graeme -

-------------- next part --------------
A non-text attachment was scrubbed...
Name: interface_test.pas
Type: text/x-pascal
Size: 1107 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20100416/2ad59237/attachment.pas>