Add support for test compiling with Delphi 12

Added compiler to relevant Src/Compilers/* files.
Updated .ini and .xml file support code to persist compiler results.
Added Delphi 12 CompilerVersion const to codegen preferences page.

Fixes #121

Author: delphidabbler

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/UXMLDocConsts.pas

@@ -68,7 +68,7 @@ interface
     'd2005', 'd2006', 'd2007', 'd2009', 'd2010',
     'dXE', 'dXE2', 'dXE3', 'dDX4' {error, but in use so can't fix},
     'dXE5', 'dXE6', 'dXE7', 'dXE8',
-    'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a',
+    'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a', 'd12y',
     'fpc'
   );