diff --git a/sources/MVCFramework.Rtti.Utils.pas b/sources/MVCFramework.Rtti.Utils.pas index 0c460db3..22bdeef9 100644 --- a/sources/MVCFramework.Rtti.Utils.pas +++ b/sources/MVCFramework.Rtti.Utils.pas @@ -191,7 +191,11 @@ begin lConstructors := RttiType.GetMethods('Create'); for lConstructor in lConstructors do begin + {$IF Defined(ALEXANDRIAORBETTER)} if lConstructor.HasAttribute then + {$ELSE} + if TRttiUtils.HasAttribute(lConstructor) then + {$ENDIF} begin Result := lConstructor; break; { the first wins }