Compilable again in Delphi Pro

danieleteti · Jan 30, 2025 · 597faaa · 597faaa
1 parent 74cda52
commit 597faaa
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/packages/d120/dmvcframeworkRT.dpk b/packages/d120/dmvcframeworkRT.dpk
@@ -41,9 +41,7 @@ requires
   loggerproRT,
   FireDACPgDriver,
   FireDACSqliteDriver,
-  SwagDoc,
-  FireDACCommonODBC,
-  FireDACMSSQLDriver;
+  SwagDoc;
 
 contains
   Web.HTTPDImpl,

diff --git a/packages/d120/dmvcframeworkRT.dproj b/packages/d120/dmvcframeworkRT.dproj
@@ -152,8 +152,6 @@
         <DCCReference Include="FireDACPgDriver.dcp"/>
         <DCCReference Include="FireDACSqliteDriver.dcp"/>
         <DCCReference Include="SwagDoc.dcp"/>
-        <DCCReference Include="FireDACCommonODBC.dcp"/>
-        <DCCReference Include="FireDACMSSQLDriver.dcp"/>
         <DCCReference Include="..\..\sources\MVCFramework.pas"/>
         <DCCReference Include="..\..\sources\MVCFramework.AsyncTask.pas"/>
         <DCCReference Include="..\..\sources\MVCFramework.Middleware.Swagger.pas"/>

diff --git a/sources/MVCFramework.SQLGenerators.MSSQL.pas b/sources/MVCFramework.SQLGenerators.MSSQL.pas
@@ -27,9 +27,12 @@
 interface
 
 uses
+  {
+    //do not include these 2 unit in this unit
+    //because it will not compiles in Delphi Pro
   FireDAC.Phys.MSSQLDef,
   FireDAC.Phys.MSSQL,
-  System.Rtti,
+  }
   System.Generics.Collections,
   MVCFramework.RQL.Parser,
   MVCFramework.ActiveRecord,
@@ -48,6 +51,7 @@   TMVCSQLGeneratorMSSQL = class(TMVCSQLGenerator)
 implementation
 
 uses
+  System.Rtti,
   System.SysUtils,
   MVCFramework.RQL.AST2MSSQL;