Index: typinfo.pp =================================================================== RCS file: /FPC/CVS/fpc/rtl/objpas/typinfo.pp,v retrieving revision 1.42 diff -u -r1.42 typinfo.pp --- typinfo.pp 3 Apr 2005 11:50:58 -0000 1.42 +++ typinfo.pp 4 Apr 2005 21:35:23 -0000 @@ -1272,6 +1272,13 @@ Result:=TGetExtendedProc(AMethod)() else Result:=TGetExtendedProcIndex(AMethod)(PropInfo^.Index); + {$ifdef HASCURRENCY} + ftCurr: + if ((PropInfo^.PropProcs shr 6) and 1)<>0 then + Result:=TGetCurrencyProc(AMethod)() + else + Result:=TGetCurrencyProcIndex(AMethod)(PropInfo^.Index); + {$endif HASCURRENCY} end; end; end; @@ -1338,6 +1345,13 @@ TSetExtendedProc(AMethod)(Value) else TSetExtendedProcIndex(AMethod)(PropInfo^.Index,Value); + {$ifdef HASCURRENCY} + ftCurr: + if ((PropInfo^.PropProcs shr 6) and 1)<>0 then + TSetCurrencyProc(AMethod)(Value) + else + TSetCurrencyProcIndex(AMethod)(PropInfo^.Index,Value); + {$endif HASCURRENCY} end; end; end;