Added support for compiling with Delphi 10.1 Berlin compiler.

Author: DelphiDabbler

Src/Compilers.UBDS.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2006-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2006-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -145,23 +145,26 @@ function TBDSCompiler.GetIDString: string;
       Result := 'DXE8';
     ciD10S:
       Result := 'D10S';
+    ciD101B:
+      Result := 'D101B';
     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
+  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
 begin
   case GetID of
     ciDXE:
@@ -182,6 +185,8 @@ function TBDSCompiler.GetName: string;
       Result := sDelphiXE8;
     ciD10S:
       Result := sDelphi10S;
+    ciD101B:
+      Result := sDelphi101B;
     else
       Result := Format(sCompilerName, [ProductVersion]);
   end;
@@ -211,6 +216,7 @@ function TBDSCompiler.InstallationRegKey: string;
     ciDXE7    : Result := '\Software\Embarcadero\BDS\15.0';
     ciDXE8    : Result := '\Software\Embarcadero\BDS\16.0';
     ciD10S    : Result := '\Software\Embarcadero\BDS\17.0';
+    ciD101B   : Result := '\Software\Embarcadero\BDS\18.0';
     else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
   end;
 end;

Src/Compilers.UGlobals.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2005-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2005-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -42,6 +42,7 @@ interface
     ciDXE7,                             // Delphi XE7
     ciDXE8,                             // Delphi XE8
     ciD10S,                             // Delphi 10 Seattle
+    ciD101B,                            // Delphi 10.1 Berlin
     ciFPC                               // Free Pascal
   );
 
@@ -54,7 +55,7 @@ interface
   ///  compilers.</summary>
   cBDSCompilers = [
     ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
-    ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S
+    ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B
   ];
 
 const

Src/DBIO.UIniDataReader.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2005-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2005-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -237,7 +237,8 @@ implementation
     'Delphi2', 'Delphi3', 'Delphi4', 'Delphi5', 'Delphi6', 'Delphi7',
     'Delphi2005Win32', 'Delphi2006Win32', 'Delphi2007', 'Delphi2009Win32',
     'Delphi2010', 'DelphiXE', 'DelphiXE2', 'DelphiXE3', 'DelphiXE4',
-    'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'DelphiXE8', 'Delphi10S', 'FPC'
+    'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'DelphiXE8', 'Delphi10S',
+    'Delphi101B', 'FPC'
   );
 
 { TIniDataReader }

Src/FirstRun.UConfigFile.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2007-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2007-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -483,6 +483,7 @@ procedure TUserConfigFileUpdater.UpdateNamespaces;
   UpdateForCompiler('DXE7');
   UpdateForCompiler('DXE8');
   UpdateForCompiler('D10S');
+  UpdateForCompiler('D101B');
 end;
 
 { TCommonConfigFileUpdater }

Src/FrCodeGenPrefs.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2010-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2010-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -681,6 +681,7 @@ procedure TCodeGenPrefsFrame.PopulatePreDefCompilerMenu;
   AddMenuItem('Delphi XE7', 28.0);
   AddMenuItem('Delphi XE8', 29.0);
   AddMenuItem('Delphi 10 Seattle', 30.0);
+  AddMenuItem('Delphi 10.1 Berlin', 31.0);
 end;
 
 procedure TCodeGenPrefsFrame.PreDefCompilerMenuClick(Sender: TObject);

Src/UXMLDocConsts.pas

@@ -3,7 +3,7 @@
  * v. 2.0. If a copy of the MPL was not distributed with this file, You can
  * obtain one at http://mozilla.org/MPL/2.0/
  *
- * Copyright (C) 2008-2015, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2008-2016, Peter Johnson (www.delphidabbler.com).
  *
  * $Rev$
  * $Date$
@@ -74,7 +74,7 @@ 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',
+    'dXE5', 'dXE6', 'dXE7', 'dXE8', 'd10s', 'd101b',
     'fpc'
   );