Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed incompatibilities with Delphi Sydney and previous (thanks Mark Lobanov)

Browse Source
This commit is contained in:
Daniele Teti 2024-04-10 14:19:21 +02:00
parent 7332259f25
commit 6d1ea32678
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/MVCFramework.Rtti.Utils.pas
View File

@ -191,7 +191,11 @@ begin
lConstructors := RttiType.GetMethods('Create'); lConstructors := RttiType.GetMethods('Create');
for lConstructor in lConstructors do for lConstructor in lConstructors do
begin begin
{$IF Defined(ALEXANDRIAORBETTER)}
if lConstructor.HasAttribute<T> then if lConstructor.HasAttribute<T> then
{$ELSE}
if TRttiUtils.HasAttribute<T>(lConstructor) then
{$ENDIF}
begin begin
Result := lConstructor; Result := lConstructor;
break; { the first wins } break; { the first wins }