[fpc-devel] RTTI difference

[Graeme Geldenhuys]

Hi,

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));
    {$ELSE}
    result    := ( lPropInfo^.GetProc <> nil ) and (
lPropInfo^.SetProc <> nil ) ;
    {$ENDIF}


Regards,
  Graeme.


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 127.0.0.1