[fpc-devel] RTTI difference

Graeme Geldenhuys graemeg.lists at gmail.com
Fri Jul 21 08:56:20 CEST 2006


I have found that same issue a couple months back.  I think I reported
it as a bug, I will double check.  What I had to do under FPC to get
it working was the following:

    {$IFDEF FPC}
    result    := (lPropInfo^.GetProc <> Pointer($01)) and
(lPropInfo^.SetProc <> Pointer($01));
    result    := ( lPropInfo^.GetProc <> nil ) and (
lPropInfo^.SetProc <> nil ) ;


On 7/21/06, Leonardo M. Ramé <martinrame at yahoo.com> wrote:
> I found a difference between the TPropInfo record GetProc and SetProc pointers between Delphi and
> FPC, when i check a class like this:
> type
>   TMyClass = class(TPersistent)
>   private
>     FAttrib1: Integer;
>   published
>     property Attrib: Integer read FAttrib write FAttrib;
>   end;
> In Delphi, when i do GetPropInfo(TMyClass, Attrib)^.GetProc it gives a nil value, right, because i
> don´t have declared a getter for this property, with SetProc is the same.
> In FPC, the results never are nil. Is this the correct behavior, or is a bug?
> Leonardo M. Ramé
> http://leonardorame.blogspot.com
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel

There's no place like

More information about the fpc-devel mailing list