Move include file to code-samples/myconfig.inc

Author: michaliskambi

code-samples/myconfig.inc

@@ -0,0 +1,9 @@
+{$ifdef FPC}
+  {$mode objfpc}
+  {$H+}
+  {$J-}
+  {$modeswitch advancedrecords}
+  {$ifdef VER2}
+    {$message fatal 'This code can only be compiled using FPC version >= 3.0.'}
+  {$endif}
+{$endif}

code-samples/test_myconfig.dpr

@@ -0,0 +1,7 @@
+{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
+
+{ Compile this to test that myconfig.inc is valid. }
+{$I myconfig.inc}
+
+begin
+end.

code-samples_bg/myconfig.inc

@@ -0,0 +1,9 @@
+{$ifdef FPC}
+  {$mode objfpc}
+  {$H+}
+  {$J-}
+  {$modeswitch advancedrecords}
+  {$ifdef VER2}
+    {$message fatal 'This code can only be compiled using FPC version >= 3.0.'}
+  {$endif}
+{$endif}

code-samples_bg/test_myconfig.dpr

@@ -0,0 +1,7 @@
+{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
+
+{ Compile this to test that myconfig.inc is valid. }
+{$I myconfig.inc}
+
+begin
+end.

code-samples_russian/myconfig.inc

@@ -0,0 +1,9 @@
+{$ifdef FPC}
+  {$mode objfpc}
+  {$H+}
+  {$J-}
+  {$modeswitch advancedrecords}
+  {$ifdef VER2}
+    {$message fatal 'This code can only be compiled using FPC version >= 3.0.'}
+  {$endif}
+{$endif}

code-samples_russian/test_myconfig.dpr

@@ -0,0 +1,7 @@
+{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
+
+{ Compile this to test that myconfig.inc is valid. }
+{$I myconfig.inc}
+
+begin
+end.

code-samples_ukrainian/myconfig.inc

@@ -0,0 +1,9 @@
+{$ifdef FPC}
+  {$mode objfpc}
+  {$H+}
+  {$J-}
+  {$modeswitch advancedrecords}
+  {$ifdef VER2}
+    {$message fatal 'This code can only be compiled using FPC version >= 3.0.'}
+  {$endif}
+{$endif}

code-samples_ukrainian/test_myconfig.dpr

@@ -0,0 +1,7 @@
+{$ifdef MSWINDOWS} {$apptype CONSOLE} {$endif}
+
+{ Compile this to test that myconfig.inc is valid. }
+{$I myconfig.inc}
+
+begin
+end.

modern_pascal_introduction.adoc

@@ -2086,13 +2086,7 @@ Include files have commonly the `.inc` extension, and are used for two purposes:
 +
 [source,pascal]
 ----
-{$mode objfpc}
-{$H+}
-{$J-}
-{$modeswitch advancedrecords}
-{$ifndef VER3}
-  {$error This code can only be compiled using FPC version at least 3.x.}
-{$endif}
+include::code-samples/myconfig.inc[]
 ----
 +
 Now you can include this file using `{$I myconfig.inc}` in all your sources.
@@ -2685,6 +2679,8 @@ include::code-samples/interface_casting.dpr[]
 
 ### CORBA and COM types of interfaces
 
+NOTE: This section is only relevant for FPC. Delphi has only _COM_ interfaces.
+
 Why are the interfaces (presented above) called "CORBA"?::
 
 //The declaration `{$interface corba}` simply means that the declared interfaces *do not* automatically descend from the special `IUnknown` interface. Which in turn means that they *do not* by default have any extra baggage (like reference-counting found in the *COM* interfaces).

modern_pascal_introduction_bg.adoc

@@ -1971,13 +1971,7 @@ end.
 +
 [source,pascal]
 ----
-{$mode objfpc}
-{$H+}
-{$J-}
-{$modeswitch advancedrecords}
-{$ifndef VER3}
-  {$error Този код може да се компилира само с FPC версия 3.x. или по-висока}
-{$endif}
+include::code-samples/myconfig.inc[]
 ----
 +
 Сега можете да включите този файл с помощта на `{$I myconfig.inc}` във всички ваши изходни файлове.