Add support for test compilation with Delphi 13

Added support for test compiling with and automatic registration of
Delphi 13.

Added support for saving and reading Delphi 13 test compilation results
from all supported file formats.

Added support for specifying Delphi 13 as the minimum compiler on the
Code Generation tab of the Preference dialogue box.

Author: delphidabbler

Src/Compilers.UBDS.pas

@@ -154,6 +154,8 @@ function TBDSCompiler.GetIDString: string;
       Result := 'D11A';
     ciD12A:
       Result := 'D12Y';
+    ciD13F:
+      Result := 'D13F';
     else
       raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
   end;
@@ -179,6 +181,7 @@ function TBDSCompiler.GetName: string;
   sDelphi104S = 'Delphi 10.4';    // Sydney
   sDelphi11A  = 'Delphi 11.x';    // Alexandria
   sDelphi12A  = 'Delphi 12.x';    // Athens
+  sDelphi13F  = 'Delphi 13.x';    // Florence
 begin
   case GetID of
     ciDXE:
@@ -211,6 +214,8 @@ function TBDSCompiler.GetName: string;
       Result := sDelphi11A;
     ciD12A:
       Result := sDelphi12A;
+    ciD13F:
+      Result := sDelphi13F;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -246,6 +251,7 @@ function TBDSCompiler.InstallationRegKey: string;
     ciD104S   : Result := '\Software\Embarcadero\BDS\21.0';
     ciD11A    : Result := '\Software\Embarcadero\BDS\22.0';
     ciD12A    : Result := '\Software\Embarcadero\BDS\23.0';
+    ciD13F    : Result := '\Software\Embarcadero\BDS\37.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

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

Src/DBIO.UIniDataReader.pas

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

Src/FrCodeGenPrefs.pas

@@ -682,6 +682,7 @@ procedure TCodeGenPrefsFrame.PopulatePreDefCompilerMenu;
   AddMenuItem('Delphi 10.4 Sydney', 34.0);
   AddMenuItem('Delphi 11.x Alexandria', 35.0);
   AddMenuItem('Delphi 12 Athens', 36.0);
+  AddMenuItem('Delphi 13 Florence', 37.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', 'd12y',
+    'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a', 'd12y', 'd13f',
     'fpc'
   );