Add compiler / file support for Delphi 10.2, 10.3 & 10.4

Author: delphidabbler

Src/Compilers.UBDS.pas

@@ -144,6 +144,12 @@ function TBDSCompiler.GetIDString: string;
       Result := 'D10S';
     ciD101B:
       Result := 'D101B';
+    ciD102T:
+      Result := 'D102T';
+    ciD103R:
+      Result := 'D103R';
+    ciD104S:
+      Result := 'D104S';
     else
       raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
   end;
@@ -162,6 +168,9 @@ function TBDSCompiler.GetName: string;
   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
 begin
   case GetID of
     ciDXE:
@@ -184,6 +193,12 @@ function TBDSCompiler.GetName: string;
       Result := sDelphi10S;
     ciD101B:
       Result := sDelphi101B;
+    ciD102T:
+      Result := sDelphi102T;
+    ciD103R:
+      Result := sDelphi103R;
+    ciD104S:
+      Result := sDelphi104S;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -214,6 +229,9 @@ function TBDSCompiler.InstallationRegKey: string;
     ciDXE8    : Result := '\Software\Embarcadero\BDS\16.0';
     ciD10S    : Result := '\Software\Embarcadero\BDS\17.0';
     ciD101B   : Result := '\Software\Embarcadero\BDS\18.0';
+    ciD102T   : Result := '\Software\Embarcadero\BDS\19.0';
+    ciD103R   : Result := '\Software\Embarcadero\BDS\20.0';
+    ciD104S   : Result := '\Software\Embarcadero\BDS\21.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

@@ -40,6 +40,9 @@ interface
     ciDXE8,                             // Delphi XE8
     ciD10S,                             // Delphi 10 Seattle
     ciD101B,                            // Delphi 10.1 Berlin
+    ciD102T,                            // Delphi 10.2 Tokyo
+    ciD103R,                            // Delphi 10.3 Rio
+    ciD104S,                            // Delphi 10.4 Sydney
     ciFPC                               // Free Pascal
   );
 
@@ -52,7 +55,8 @@ interface
   ///  compilers.</summary>
   cBDSCompilers = [
     ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
-    ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B
+    ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B, ciD102T,
+    ciD103R, ciD104S
   ];
 
 const

Src/DBIO.UIniDataReader.pas

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

Src/UXMLDocConsts.pas

@@ -67,7 +67,8 @@ interface
     'd2', 'd3', 'd4', 'd5', 'd6', 'd7',
     'd2005', 'd2006', 'd2007', 'd2009', 'd2010',
     'dXE', 'dXE2', 'dXE3', 'dDX4' {error, but in use},
-    'dXE5', 'dXE6', 'dXE7', 'dXE8', 'd10s', 'd101b',
+    'dXE5', 'dXE6', 'dXE7', 'dXE8',
+    'd10s', 'd101b', 'd102t', 'd103r', 'd104s',
     'fpc'
   );