Merge branch 'feature/121-support-delphi-12' into develop

Author: delphidabbler

Docs/Design/FileFormats/config.html

@@ -259,6 +259,9 @@ <h4>
   <li>
     <em>D11A</em> &ndash; Delphi 11.x Alexandria
   </li>
+  <li>
+    <em>D12Y</em> &ndash; Delphi 12 Athens
+  </li>
   <li>
     <em>FPC</em> &ndash; Free Pascal
   </li>
@@ -613,6 +616,12 @@ <h4>
   <dd>
     Indicates whether Delphi 11.x Alexandria was included in the search.
   </dd>
+  <dt>
+    <code class="key">D12Y</code> (Boolean)
+  </dt>
+  <dd>
+    Indicates whether Delphi 12 Athens was included in the search.
+  </dd>
   <dt>
     <code class="key">FPC</code> (Boolean)
   </dt>

Docs/Design/FileFormats/export.html

@@ -606,6 +606,9 @@ <h2>
           <li>
             <em>d11a</em> &ndash; Delphi 11.x Alexandria compiler <span class="highlight">(v7.2 &amp; later)</span>
           </li>
+          <li>
+            <em>d12y</em> &ndash; Delphi 12 Athens compiler <span class="highlight">(v7.4 &amp; later)</span>
+          </li>
           <li>
             <em>fpc</em> &ndash; Free Pascal compiler <span class="highlight">(all versions)</span>
           </li>
@@ -984,6 +987,12 @@ <h2>
       <dd>
         Updated with CodeSnip v4.21.0 to add support for REML v5, which is backward compatible with REML v4.
       </dd>
+      <dt>
+        <em>Version 7.4 - 7 November 2023</em>
+      </dt>
+      <dd>
+        Updated in time for CodeSnip v4.22.0 to add support for Delphi 12 Athens.
+      </dd>
     </dl>
   </dd>
 </dl>

Docs/Design/FileFormats/main-db.html

@@ -419,6 +419,9 @@ <h4>
       <li>
         <code class="key">Delphi11A</code> – Delphi 11.x Alexandria compiler *
       </li>
+      <li>
+        <code class="key">Delphi12A</code> – Delphi 12 Athens compiler *
+      </li>
       <li>
         <code class="key">FPC</code> – Free Pascal compiler
       </li>

Docs/Design/FileFormats/user-db.html

@@ -631,6 +631,9 @@ <h3 id="xml-file">
           <li>
             <em>d11a</em> &ndash; Delphi 11.x Alexandria compiler <span class="highlight">(v6.10 &amp; later)</span>
           </li>
+          <li>
+            <em>d12y</em> &ndash; Delphi 12 Athens compiler <span class="highlight">(v6.12 &amp; later)</span>
+          </li>
           <li>
             <em>fpc</em> &ndash; Free Pascal compiler <span class="highlight">(all versions)</span>
           </li>
@@ -1020,6 +1023,12 @@ <h2>
       <dd>
         Updated with CodeSnip v4.21.0 to add support for REML v5, which is backwards compatible with REML v4.
       </dd>
+      <dt>
+        <em>Version 6.12 - 7 November 2023</em>
+      </dt>
+      <dd>
+        Updated in time for CodeSnip v4.22.0 to add support for Delphi 12 Athens.
+      </dd>
     </dl>
   </dd>
 </dl>

Docs/ReadMe.txt

@@ -14,8 +14,8 @@ online DelphiDabbler Code Snippets database as well as maintain a database of
 user-defined snippets.
 
 It displays details of each snippet in the database and can test-compile them
-with each installed Win32 version of Delphi from Delphi 2 to Delphi 11.x
-Alexandria and Free Pascal.
+with each installed Win32 version of Delphi from Delphi 2 to Delphi 12 Athens
+and Free Pascal.
 
 Compilable Pascal units can be created that contain selected snippets.
 
@@ -204,8 +204,8 @@ Configuring CodeSnip to Work With Your Compilers
 ================================================================================
 
 A feature of CodeSnip is its ability to test compile snippets with any installed
-Windows 32 version of Delphi (from Delphi 2 to Delphi 11.x Alexandria) and
-FreePascal, providing some simple rules are followed.
+Windows 32 version of Delphi (from Delphi 2 to Delphi 12 Athens) and FreePascal,
+providing some simple rules are followed.
 
 When CodeSnip is first installed it knows nothing about the available compilers
 and so test compilations cannot be performed. If any supported Delphi compiler

Src/Compilers.UBDS.pas

@@ -152,6 +152,8 @@ function TBDSCompiler.GetIDString: string;
       Result := 'D104S';
     ciD11A:
       Result := 'D11A';
+    ciD12A:
+      Result := 'D12Y';
     else
       raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
   end;
@@ -175,7 +177,8 @@ function TBDSCompiler.GetName: string;
   sDelphi102T = 'Delphi 10.2 Tokyo';
   sDelphi103R = 'Delphi 10.3 Rio';
   sDelphi104S = 'Delphi 10.4 Sydney';
-  sDelphi11A =  'Delphi 11.x Alexandria';
+  sDelphi11A  = 'Delphi 11.x Alexandria';
+  sDelphi12A  = 'Delphi 12 Athens';
 begin
   case GetID of
     ciDXE:
@@ -206,6 +209,8 @@ function TBDSCompiler.GetName: string;
       Result := sDelphi104S;
     ciD11A:
       Result := sDelphi11A;
+    ciD12A:
+      Result := sDelphi12A;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -240,6 +245,7 @@ function TBDSCompiler.InstallationRegKey: string;
     ciD103R   : Result := '\Software\Embarcadero\BDS\20.0';
     ciD104S   : Result := '\Software\Embarcadero\BDS\21.0';
     ciD11A    : Result := '\Software\Embarcadero\BDS\22.0';
+    ciD12A    : Result := '\Software\Embarcadero\BDS\23.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

@@ -44,6 +44,7 @@ interface
     ciD103R,                            // Delphi 10.3 Rio
     ciD104S,                            // Delphi 10.4 Sydney,
     ciD11A,                             // Delphi 11.x Alexandria
+    ciD12A,                             // Delphi 12 Athens
     ciFPC                               // Free Pascal
   );
 
@@ -57,7 +58,7 @@ interface
   cBDSCompilers = [
     ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
     ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B, ciD102T,
-    ciD103R, ciD104S, ciD11A
+    ciD103R, ciD104S, ciD11A, ciD12A
   ];
 
 const

Src/DBIO.UIniDataReader.pas

@@ -236,6 +236,7 @@ implementation
     'Delphi2010', 'DelphiXE', 'DelphiXE2', 'DelphiXE3', 'DelphiXE4',
     'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'DelphiXE8', 'Delphi10S',
     'Delphi101B', 'Delphi102T', 'Delphi103R', 'Delphi104S', 'Delphi11A',
+    'Delphi12A',
     'FPC'
   );
 

Src/FrCodeGenPrefs.pas

@@ -681,6 +681,7 @@ procedure TCodeGenPrefsFrame.PopulatePreDefCompilerMenu;
   AddMenuItem('Delphi 10.3 Rio', 33.0);
   AddMenuItem('Delphi 10.4 Sydney', 34.0);
   AddMenuItem('Delphi 11.x Alexandria', 35.0);
+  AddMenuItem('Delphi 12 Athens', 36.0);
 end;
 
 procedure TCodeGenPrefsFrame.PreDefCompilerMenuClick(Sender: TObject);

Src/Help/HTML/about_compiler_checks.htm

@@ -34,7 +34,7 @@ <h1>
     </p>
     <p>
       The supported compilers are the Win32 Delphi compilers from Delphi 2 to
-      Delphi 11.x Alexandria and Free Pascal.
+      Delphi 12 Athens and Free Pascal.
     </p>
     <h2>
       Configuring CodeSnip