[fpc-pascal] Interfaces via implements keyword

[Michael Van Canneyt]

On Mon, 23 Nov 2009, Florian Klaempfl wrote:

> 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.

Not 'might', it definitely is buggy :(

Michael.