On 27 May 2010, at 21:51, Flávio Etrusco wrote:
> On Thu, May 27, 2010 at 11:01 AM, Yann Bat <batyann...@gmail.com> wrote:
>> type
>> TBlob = object
>> private
>> fId : LongInt;
>>
>> public
>> constructor Init;
>> function Id: LongInt;
>> end;
>>
>> PBlob=^TBlob;
>>
>> const
>> NullBlob : TBlob = (fId: 0);
>>
>> {=== TBlob ===}
>> constructor TBlob.Init;
>> begin
>> fId:=Random(1024) + 1;
>> end;
>>
>
> All TObject descendants have a VMT.
The above is not a TObject descendant. It's a TP-style object.
Jonas_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
