Add Delphi 11 compiler info

Add support for D11 to Compiler namespace code

Add support for D11 in INI & XML data file processing (new INI file
key "Delphi11A" and XML identifier "d11a")

Author: delphidabbler

Src/Compilers.UBDS.pas

@@ -150,27 +150,32 @@ function TBDSCompiler.GetIDString: string;
       Result := 'D103R';
     ciD104S:
       Result := 'D104S';
+    ciD11A:
+      Result := 'D11A';
     else
       raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
   end;
 end;
 
 function TBDSCompiler.GetName: string;
 resourcestring
-  sCompilerName = 'Delphi %d';          // template for name of compiler
-  sDelphiXE = 'Delphi XE';              // name of Delphi XE compiler
-  sDelphiXE2 = 'Delphi XE2';            // name of Delphi XE2 compiler
-  sDelphiXE3 = 'Delphi XE3';            // name of Delphi XE3 compiler
-  sDelphiXE4 = 'Delphi XE4';            // name of Delphi XE4 compiler
-  sDelphiXE5 = 'Delphi XE5';            // name of Delphi XE5 compiler
-  sDelphiXE6 = 'Delphi XE6';            // name of Delphi XE6 compiler
-  sDelphiXE7 = 'Delphi XE7';            // name of Delphi XE7 compiler
-  sDelphiXE8 = 'Delphi XE8';            // name of Delphi XE8 compiler
-  sDelphi10S = 'Delphi 10 Seattle';     // name of Delphi 10 compiler
-  sDelphi101B = 'Delphi 10.1 Berlin';   // name of Delphi 10.1 compiler
-  sDelphi102T = 'Delphi 10.2 Tokyo';    // name of Delphi 10.2 compiler
-  sDelphi103R = 'Delphi 10.3 Rio';      // name of Delphi 10.3 compiler
-  sDelphi104S = 'Delphi 10.4 Sydney';   // name of Delphi 10.4 compiler
+  // template for name of compiler with simple integer version number
+  sCompilerName = 'Delphi %d';
+  // names of compilers not suitable for use with template
+  sDelphiXE = 'Delphi XE';
+  sDelphiXE2 = 'Delphi XE2';
+  sDelphiXE3 = 'Delphi XE3';
+  sDelphiXE4 = 'Delphi XE4';
+  sDelphiXE5 = 'Delphi XE5';
+  sDelphiXE6 = 'Delphi XE6';
+  sDelphiXE7 = 'Delphi XE7';
+  sDelphiXE8 = 'Delphi XE8';
+  sDelphi10S = 'Delphi 10 Seattle';
+  sDelphi101B = 'Delphi 10.1 Berlin';
+  sDelphi102T = 'Delphi 10.2 Tokyo';
+  sDelphi103R = 'Delphi 10.3 Rio';
+  sDelphi104S = 'Delphi 10.4 Sydney';
+  sDelphi11A =  'Delphi 11 Alexandria';
 begin
   case GetID of
     ciDXE:
@@ -199,6 +204,8 @@ function TBDSCompiler.GetName: string;
       Result := sDelphi103R;
     ciD104S:
       Result := sDelphi104S;
+    ciD11A:
+      Result := sDelphi11A;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -232,6 +239,7 @@ function TBDSCompiler.InstallationRegKey: string;
     ciD102T   : Result := '\Software\Embarcadero\BDS\19.0';
     ciD103R   : Result := '\Software\Embarcadero\BDS\20.0';
     ciD104S   : Result := '\Software\Embarcadero\BDS\21.0';
+    ciD11A    : Result := '\Software\Embarcadero\BDS\22.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

@@ -42,7 +42,8 @@ interface
     ciD101B,                            // Delphi 10.1 Berlin
     ciD102T,                            // Delphi 10.2 Tokyo
     ciD103R,                            // Delphi 10.3 Rio
-    ciD104S,                            // Delphi 10.4 Sydney
+    ciD104S,                            // Delphi 10.4 Sydney,
+    ciD11A,                             // Delphi 11 Alexandria
     ciFPC                               // Free Pascal
   );
 
@@ -56,7 +57,7 @@ interface
   cBDSCompilers = [
     ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
     ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B, ciD102T,
-    ciD103R, ciD104S
+    ciD103R, ciD104S, ciD11A
   ];
 
 const

Src/DBIO.UIniDataReader.pas

@@ -235,7 +235,8 @@ implementation
     'Delphi2005Win32', 'Delphi2006Win32', 'Delphi2007', 'Delphi2009Win32',
     'Delphi2010', 'DelphiXE', 'DelphiXE2', 'DelphiXE3', 'DelphiXE4',
     'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'DelphiXE8', 'Delphi10S',
-    'Delphi101B', 'Delphi102T', 'Delphi103R', 'Delphi104S', 'FPC'
+    'Delphi101B', 'Delphi102T', 'Delphi103R', 'Delphi104S', 'Delphi11A',
+    'FPC'
   );
 
 { TIniDataReader }

Src/UXMLDocConsts.pas

@@ -66,9 +66,9 @@ interface
   cCompilerIDs: array[TCompilerID] of string = (
     'd2', 'd3', 'd4', 'd5', 'd6', 'd7',
     'd2005', 'd2006', 'd2007', 'd2009', 'd2010',
-    'dXE', 'dXE2', 'dXE3', 'dDX4' {error, but in use},
+    'dXE', 'dXE2', 'dXE3', 'dDX4' {error, but in use so can't fix},
     'dXE5', 'dXE6', 'dXE7', 'dXE8',
-    'd10s', 'd101b', 'd102t', 'd103r', 'd104s',
+    'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a',
     'fpc'
   );