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

Merge branch 'master' of https://github.com/danieleteti/delphimvcframework

Browse Source
This commit is contained in:
Daniele Teti 2024-04-17 23:32:18 +02:00
commit 739b751607
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
sources/MVCFramework.RQL.Parser.pas
View File

@ -315,7 +315,7 @@ begin
end;
if lMsg.Trim.IsEmpty then
lMsg := '<EOF>';
raise ERQLException.CreateFmt('[Error] %s (column %d - found %s)', [message, fCurIdx, lMsg]) at AddressOfReturnAddress;
raise ERQLException.CreateFmt('[Error] %s (column %d - found %s)', [message, fCurIdx, lMsg]){$IF DEFINED(MSWINDOWS)} at AddressOfReturnAddress{$ENDIF};
end;
procedure TRQL2SQL.Execute(

2
sources/MVCFramework.pas
View File

@ -2615,7 +2615,7 @@ begin
for I := 0 to Length(lActionFormalParams) - 1 do
begin
lServiceName := '';
{$IF Defined(SYDNEYORBETTER)}
{$IF Defined(ALEXANDRIAORBETTER)}
lInjectAttribute := lActionFormalParams[I].GetAttribute<MVCInjectAttribute>;
{$ELSE}
lInjectAttribute := TRttiUtils.GetAttribute<MVCInjectAttribute>(lActionFormalParams[I]);