Updated PJStreamWrapper unit from Stream Extension Classes to v3.1.2 of 12 Jan 2014

Author: delphidabbler

Src/3rdParty/PJStreamWrapper.pas

@@ -3,10 +3,10 @@
  * 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) 2000-2013, Peter Johnson (www.delphidabbler.com).
+ * Copyright (C) 2000-2014, Peter Johnson (www.delphidabbler.com).
  *
- * $Rev$
- * $Date$
+ * $Rev: 1515 $
+ * $Date: 2014-01-11 02:36:28 +0000 (Sat, 11 Jan 2014) $
  *
  * Defines the TPJStreamWrapper class. This is a base class for descendant
  * classes that "wrap" a TStream class to provide some form of filter or
@@ -22,14 +22,17 @@
 {$UNDEF SUPPORTS_TSTREAM64}
 {$UNDEF RTLNAMESPACES}
 {$IFDEF CONDITIONALEXPRESSIONS}
-  {$IF CompilerVersion >= 14.0} // >= Delphi 6
-    {$DEFINE SUPPORTS_TSTREAM64}
+  {$IF CompilerVersion >= 24.0} // Delphi XE3 and later
+    {$LEGACYIFEND ON}  // NOTE: this must come before all $IFEND directives
+  {$IFEND}
+  {$IF CompilerVersion >= 23.0} // Delphi XE2 and later
+    {$DEFINE RTLNAMESPACES}
   {$IFEND}
-  {$IF CompilerVersion >= 18.0} // >= Delphi 2006
+  {$IF CompilerVersion >= 18.0} // Delphi 2006 and later
     {$DEFINE SUPPORTS_STRICT}
   {$IFEND}
-  {$IF CompilerVersion >= 23.0} // >= Delphi XE2
-    {$DEFINE RTLNAMESPACES}
+  {$IF CompilerVersion >= 14.0} // Delphi 6 and later
+    {$DEFINE SUPPORTS_TSTREAM64}
   {$IFEND}
 {$ENDIF}