[fpc-pascal] Interfaces via implements keyword

[Florian Klaempfl]

Denis Golovan schrieb:
> Hi all
> 
> I've got a non-obvious class hierarchy with interfaces involved.
> The problem is that, I thought "property ... implements ...;"
> construction fully substitute for implementing interface methods in
> class itself, but now it's just not true.
> I get different results in case implements is used and when it isn't.
> 
> If I comment implements implementation, my results are:
> TClassBase.Print 3
> TClassBase.Print 3
> TClassBase.Print 3
> 
> If I use implements, my results are:
> TClassBase.Print 3
> TClassBase.Print 3
> TClassBase.Print 30
> 
> See my example below.
> 
> I wonder if it is by design?
> I have similar bug posted on bug tracker
> under http://bugs.freepascal.org/view.php?id=14842

implements still might be buggy.