streams:

* Added conditional compilation of units when running on XE3 or later to permit method inlining to work.

git-svn-id: https://svn.code.sf.net/p/ddablib/code/trunk@1560 eed78412-d13c-44e9-9ac7-ca5071eb296d

Author: delphidabbler

Demos/IStreamWrapDemo/FmIStreamWrap.pas

@@ -10,15 +10,11 @@
 
 unit FmIStreamWrap;
 
-interface
-
-uses
-  // Delphi
-  ComCtrls, Menus, Buttons, StdCtrls, Controls, Classes, Forms, ActiveX;
-
+{$UNDEF REQUIRES_TYPES_UNIT}
 {$IFDEF CONDITIONALEXPRESSIONS}
   {$IF CompilerVersion >= 24.0} // Delphi XE3 and later
     {$LEGACYIFEND ON}  // NOTE: this must come before all $IFEND directives
+    {$DEFINE REQUIRES_TYPES_UNIT}
   {$IFEND}
   {$IF CompilerVersion >= 15.0} // Delphi 7 and later
     {$WARN UNSAFE_CODE OFF}
@@ -27,6 +23,23 @@ interface
   {$IFEND}
 {$ENDIF}
 
+interface
+
+uses
+  // Delphi
+  {$IFDEF REQUIRES_TYPES_UNIT}
+  System.UITypes,
+  System.Types,
+  {$ENDIF}
+  ComCtrls,
+  Menus,
+  Buttons,
+  StdCtrls,
+  Controls,
+  Classes,
+  Forms,
+  ActiveX;
+
 type
   {
   TIStreamWrapForm:

Demos/StreamWrapDemo/FmStreamWrap.pas

@@ -10,17 +10,11 @@
 
 unit FmStreamWrap;
 
-interface
-
-uses
-  // Delphi
-  StdCtrls, Controls, Classes, Forms,
-  // delphiDabbler Stream Library
-  PJStreamWrapper;
-
+{$UNDEF REQUIRES_TYPES_UNIT}
 {$IFDEF CONDITIONALEXPRESSIONS}
   {$IF CompilerVersion >= 24.0} // Delphi XE3 and later
     {$LEGACYIFEND ON}  // NOTE: this must come before all $IFEND directives
+    {$DEFINE REQUIRES_TYPES_UNIT}
   {$IFEND}
   {$IF CompilerVersion >= 15.0} // Delphi 7 and later
     {$WARN UNSAFE_CODE OFF}
@@ -29,6 +23,20 @@ interface
   {$IFEND}
 {$ENDIF}
 
+interface
+
+uses
+  // Delphi
+  {$IFDEF REQUIRES_TYPES_UNIT}
+  System.UITypes,
+  {$ENDIF}
+  StdCtrls,
+  Controls,
+  Classes,
+  Forms,
+  // delphiDabbler Stream Library
+  PJStreamWrapper;
+
 type
   {
   TStreamWrapForm: