Retrocompatibility fix for Delphi Tokyo

danieleteti · Jan 20, 2025 · 0c31a15 · 0c31a15
1 parent d83bb53
commit 0c31a15
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/packages/d120/dmvcframeworkRT.dpk b/packages/d120/dmvcframeworkRT.dpk
@@ -125,7 +125,8 @@ contains
   MVCFramework.HTMX in '..\..\sources\MVCFramework.HTMX.pas',
   MVCFramework.Session.Database in '..\..\sources\MVCFramework.Session.Database.pas',
   MVCFramework.SQLGenerators.MSSQL in '..\..\sources\MVCFramework.SQLGenerators.MSSQL.pas',
-  MVCFramework.RQL.AST2MSSQL in '..\..\sources\MVCFramework.RQL.AST2MSSQL.pas';
+  MVCFramework.RQL.AST2MSSQL in '..\..\sources\MVCFramework.RQL.AST2MSSQL.pas',
+  MVCFramework.Middleware.Session.Internal in '..\..\sources\MVCFramework.Middleware.Session.Internal.pas';
 
 end.
 

diff --git a/packages/d120/dmvcframeworkRT.dproj b/packages/d120/dmvcframeworkRT.dproj
@@ -229,6 +229,7 @@
         <DCCReference Include="..\..\sources\MVCFramework.Session.Database.pas"/>
         <DCCReference Include="..\..\sources\MVCFramework.SQLGenerators.MSSQL.pas"/>
         <DCCReference Include="..\..\sources\MVCFramework.RQL.AST2MSSQL.pas"/>
+        <DCCReference Include="..\..\sources\MVCFramework.Middleware.Session.Internal.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

diff --git a/sources/MVCFramework.Session.pas b/sources/MVCFramework.Session.pas
@@ -340,12 +340,13 @@ function TMVCWebSession.ToString: string;
 function TMVCWebSessionMemory.Clone: TMVCWebSession;
 var
   lMemSess: TMVCWebSessionMemory;
+  lItem: TPair<String, String>;
 begin
   lMemSess := TMVCWebSessionMemory.Create(GetSessionFactory);
   try
     lMemSess.fSessionId := SessionId;
     lMemSess.Timeout := Timeout;
-    for var lItem in Self.Data do
+    for lItem in Self.Data do
     begin
       lMemSess.Data.Add(lItem.Key, lItem.Value);
     end;