📄 jedi.inc
字号:
{$IFNDEF JEDI_INC}
{$DEFINE JEDI_INC}
{******************************************************************************}
{ }
{ The contents of this file are subject to the Mozilla Public License }
{ Version 1.1 (the "License"); you may not use this file except in }
{ compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/ }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License }
{ for the specific language governing rights and limitations under the }
{ License. }
{ }
{ The Original Code is: jedi.inc. }
{ The Initial Developer of the Original Code is Project JEDI }
{ http://www.delphi-jedi.org }
{ }
{ Alternatively, the contents of this file may be used under the terms of }
{ the GNU Lesser General Public License (the "LGPL License"), in which case }
{ the provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this }
{ file under the MPL, indicate your decision by deleting the provisions }
{ above and replace them with the notice and other provisions required by }
{ the LGPL License. If you do not delete the provisions above, a recipient }
{ may use your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: }
{ http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}
{ }
{ This file defines various generic compiler directives used in different }
{ libraries, e.g. in the JEDI Code Library (JCL) and JEDI Visual Component }
{ Library Library (J-VCL). The directives in this file are of generic nature }
{ and consist mostly of mappings from the VERXXX directives defined by }
{ Delphi, C++ Builder and FPC to friendly names such as DELPHI5 and }
{ SUPPORTS_WIDESTRING. These friendly names are subsequently used in the }
{ libraries to test for compiler versions and/or whether the compiler }
{ supports certain features (such as widestrings or 64 bit integers. The }
{ libraries provide an additional, library specific, include file. For the }
{ JCL e.g. this is jcl.inc. These files should be included in source files }
{ instead of this file (which is pulled in automatically). }
{ }
{******************************************************************************}
// Last modified: $Date: 2005/02/22 07:36:46 $
// For history see end of file
(*
- Development environment directives
This file defines two directives to indicate which development environment the
library is being compiled with. Currently this can either be Delphi, Kylix,
C++ Builder or FPC.
Directive Description
------------------------------------------------------------------------------
DELPHI Defined if compiled with Delphi
KYLIX Defined if compiled with Kylix
DELPHICOMPILER Defined if compiled with Delphi or Kylix/Delphi
BCB Defined if compiled with C++ Builder
CPPBUILDER Defined if compiled with C++ Builder (alias for BCB)
BCBCOMPILER Defined if compiled with C++ Builder or Kylix/C++
DELPHILANGUAGE Defined if compiled with Delphi, Kylix or C++ Builder
BORLAND Defined if compiled with Delphi, Kylix or C++ Builder
FPC Defined if compiled with FPC
- Platform Directives
Platform directives are not all explicitly defined in this file, some are
defined by the compiler itself. They are listed here only for completeness.
Directive Description
------------------------------------------------------------------------------
WIN32 Defined when target platform is 32 bit Windows
MSWINDOWS Defined when target platform is 32 bit Windows
LINUX Defined when target platform is Linux
UNIX Defined when target platform is Linux or Unix
- Visual library Directives
The following directives indicate for a visual library. In a Delphi
application you need to define VisualCLX in the project options, if you want
to use the VisualCLX. Alternative you can use the IDE expert, which is distributed
with the JCL to do this automatically.
Directive Description
------------------------------------------------------------------------------
COMPLIB_VCL Defined when application do not define VisualCLX, obsolete, use VCL
COMPLIB_CLX Defined when application use the VisualCLX, obsolete, use VisualCLX
VCL Defined when application do not define VisualCLX
VisualCLX Defined when application use the VisualCLX
- Delphi Versions
The following directives are direct mappings from the VERXXX directives to a
friendly name of the associated compiler. These directives are only defined if
the compiler is Delphi (ie DELPHI is defined).
Directive Description
------------------------------------------------------------------------------
DELPHI1 Defined when compiling with Delphi 1
DELPHI2 Defined when compiling with Delphi 2
DELPHI3 Defined when compiling with Delphi 3
DELPHI4 Defined when compiling with Delphi 4
DELPHI5 Defined when compiling with Delphi 5
DELPHI6 Defined when compiling with Delphi 6
DELPHI7 Defined when compiling with Delphi 7
DELPHI8 Defined when compiling with Delphi 8
DELPHI9 Defined when compiling with Delphi 9
DELPHI1_UP Defined when compiling with Delphi 1 or higher
DELPHI2_UP Defined when compiling with Delphi 2 or higher
DELPHI3_UP Defined when compiling with Delphi 3 or higher
DELPHI4_UP Defined when compiling with Delphi 4 or higher
DELPHI5_UP Defined when compiling with Delphi 5 or higher
DELPHI6_UP Defined when compiling with Delphi 6 or higher
DELPHI7_UP Defined when compiling with Delphi 7 or higher
DELPHI8_UP Defined when compiling with Delphi 8 or higher
DELPHI9_UP Defined when compiling with Delphi 9 or higher
- Kylix Versions
The following directives are direct mappings from the VERXXX directives to a
friendly name of the associated compiler. These directives are only defined if
the compiler is Kylix (ie KYLIX is defined).
Directive Description
------------------------------------------------------------------------------
KYLIX1 Defined when compiling with Kylix 1
KYLIX2 Defined when compiling with Kylix 2
KYLIX3 Defined when compiling with Kylix 3
KYLIX1_UP Defined when compiling with Kylix 1 or higher
KYLIX2_UP Defined when compiling with Kylix 2 or higher
KYLIX3_UP Defined when compiling with Kylix 3 or higher
- Delphi Compiler Versions (Delphi / Kylix, not in BCB mode)
Directive Description
------------------------------------------------------------------------------
DELPHICOMPILER1 Defined when compiling with Delphi 1
DELPHICOMPILER2 Defined when compiling with Delphi 2
DELPHICOMPILER3 Defined when compiling with Delphi 3
DELPHICOMPILER4 Defined when compiling with Delphi 4
DELPHICOMPILER5 Defined when compiling with Delphi 5
DELPHICOMPILER6 Defined when compiling with Delphi 6 or Kylix 1, 2 or 3
DELPHICOMPILER7 Defined when compiling with Delphi 7
DELPHICOMPILER8 Defined when compiling with Delphi 8
DELPHICOMPILER9 Defined when compiling with Delphi 9
DELPHICOMPILER1_UP Defined when compiling with Delphi 1 or higher
DELPHICOMPILER2_UP Defined when compiling with Delphi 2 or higher
DELPHICOMPILER3_UP Defined when compiling with Delphi 3 or higher
DELPHICOMPILER4_UP Defined when compiling with Delphi 4 or higher
DELPHICOMPILER5_UP Defined when compiling with Delphi 5 or higher
DELPHICOMPILER6_UP Defined when compiling with Delphi 6 or Kylix 1, 2 or 3 or higher
DELPHICOMPILER7_UP Defined when compiling with Delphi 7 or higher
DELPHICOMPILER8_UP Defined when compiling with Delphi 8 or higher
DELPHICOMPILER9_UP Defined when compiling with Delphi 9 or higher
- C++ Builder Versions
The following directives are direct mappings from the VERXXX directives to a
friendly name of the associated compiler. These directives are only defined if
the compiler is C++ Builder (ie BCB is defined).
Directive Description
------------------------------------------------------------------------------
BCB1 Defined when compiling with C++ Builder 1
BCB3 Defined when compiling with C++ Builder 3
BCB4 Defined when compiling with C++ Builder 4
BCB5 Defined when compiling with C++ Builder 5
BCB6 Defined when compiling with C++ Builder 6
BCB1_UP Defined when compiling with C++ Builder 1 or higher
BCB3_UP Defined when compiling with C++ Builder 3 or higher
BCB4_UP Defined when compiling with C++ Builder 4 or higher
BCB5_UP Defined when compiling with C++ Builder 5 or higher
BCB6_UP Defined when compiling with C++ Builder 6 or higher
- Compiler Versions
The following directives are direct mappings from the VERXXX directives to a
friendly name of the associated compiler. Unlike the DELPHI_X and BCB_X
directives, these directives are indepedent of the development environment.
That is, they are defined regardless of whether compilation takes place using
Delphi or C++ Builder.
Directive Description
------------------------------------------------------------------------------
COMPILER1 Defined when compiling with Delphi 1
COMPILER2 Defined when compiling with Delphi 2 or C++ Builder 1
COMPILER3 Defined when compiling with Delphi 3
COMPILER35 Defined when compiling with C++ Builder 3
COMPILER4 Defined when compiling with Delphi 4 or C++ Builder 4
COMPILER5 Defined when compiling with Delphi 5 or C++ Builder 5
COMPILER6 Defined when compiling with Delphi 6 or C++ Builder 6
COMPILER7 Defined when compiling with Delphi 7
COMPILER8 Defined when compiling with Delphi 8
COMPILER9 Defined when compiling with Delphi 9
COMPILER1_UP Defined when compiling with Delphi 1 or higher
COMPILER2_UP Defined when compiling with Delphi 2 or C++ Builder 1 or higher
COMPILER3_UP Defined when compiling with Delphi 3 or higher
COMPILER35_UP Defined when compiling with C++ Builder 3 or higher
COMPILER4_UP Defined when compiling with Delphi 4 or C++ Builder 4 or higher
COMPILER5_UP Defined when compiling with Delphi 5 or C++ Builder 5 or higher
COMPILER6_UP Defined when compiling with Delphi 6 or C++ Builder 6 or higher
COMPILER7_UP Defined when compiling with Delphi 7
COMPILER8_UP Defined when compiling with Delphi 8
COMPILER9_UP Defined when compiling with Delphi 9
- RTL Versions
Use e.g. following to determine the exact RTL version since version 14.0:
{$IFDEF CONDITIONALEXPRESSIONS}
{$IF Declared(RTLVersion) and (RTLVersion >= 14.2)}
// code for Delphi 6.02 or later, Kylix 2 or later, C++ Builder 6 or later
...
{$IFEND}
{$ENDIF}
Directive Description
------------------------------------------------------------------------------
RTL80_UP Defined when compiling with Delphi 1 or later
RTL90_UP Defined when compiling with Delphi 2 or later
RTL93_UP Defined when compiling with C++ Builder 1 or later
RTL100_UP Defined when compiling with Delphi 3 or later
RTL110_UP Defined when compiling with C++ Builder 3 or later
RTL120_UP Defined when compiling with Delphi 4 or later
RTL125_UP Defined when compiling with C++ Builder 4 or later
RTL130_UP Defined when compiling with Delphi 5 or C++ Builder 5 or later
RTL140_UP Defined when compiling with Delphi 6, Kylix 1, 2 or 3 or C++ Builder 6 or later
RTL150_UP Defined when compiling with Delphi 7 or later
RTL160_UP Defined when compiling with Delphi 8 or later
RTL170_UP Defined when compiling with Delphi 9 or later
- Feature Directives
The features directives are used to test if the compiler supports specific
features, such as method overloading, and adjust the sources accordingly. Use
of these directives is preferred over the use of the DELPHI and COMPILER
directives.
Directive Description
------------------------------------------------------------------------------
SUPPORTS_CONSTPARAMS Compiler supports const parameters (D1+)
SUPPORTS_SINGLE Compiler supports the Single type (D1+)
SUPPORTS_DOUBLE Compiler supports the Double type (D1+)
SUPPORTS_EXTENDED Compiler supports the Extended type (D1+)
SUPPORTS_CURRENCY Compiler supports the Currency type (D2+)
SUPPORTS_THREADVAR Compiler supports threadvar declarations (D2+)
SUPPORTS_OUTPARAMS Compiler supports out parameters (D3+)
SUPPORTS_VARIANT Compiler supports variant (D2+)
SUPPORTS_WIDECHAR Compiler supports the WideChar type (D2+)
SUPPORTS_WIDESTRING Compiler supports the WideString type (D3+/BCB3+)
SUPPORTS_INTERFACE Compiler supports interfaces (D3+/BCB3+)
SUPPORTS_DISPINTERFACE Compiler supports dispinterfaces (D3+/BCB3+)
SUPPORTS_EXTSYM Compiler supports the $EXTERNALSYM directive (D4+/BCB3+)
SUPPORTS_NODEFINE Compiler supports the $NODEFINE directive (D4+/BCB3+)
SUPPORTS_LONGWORD Compiler supports the LongWord type (unsigned 32 bit) (D4+/BCB4+)
SUPPORTS_INT64 Compiler supports the Int64 type (D4+/BCB4+)
SUPPORTS_DYNAMICARRAYS Compiler supports dynamic arrays (D4+/BCB4+)
SUPPORTS_DEFAULTPARAMS Compiler supports default parameters (D4+/BCB4+)
SUPPORTS_OVERLOAD Compiler supports overloading (D4+/BCB4+)
SUPPORTS_IMPLEMENTS Compiler supports implements (D4+/BCB4+)
SUPPORTS_DEPRECATED Compiler supports the deprecated directive (D6+/BCB6+)
SUPPORTS_PLATFORM Compiler supports the platform directive (D6+/BCB6+)
SUPPORTS_LIBRARY Compiler supports the library directive (D6+/BCB6+)
SUPPORTS_LOCAL Compiler supports the local directive (D6+/BCB6+)
SUPPORTS_INLINE Compiler supports the inline directive (D9+)
ACCEPT_DEPRECATED Compiler supports or ignore the deprecated directive (D6/BCB6/FPC)
ACCEPT_PLATFORM Compiler supports or ignore the platform directive (D6+/BCB6+)
ACCEPT_LIBRARY Compiler supports or ignore the library directive (D6+/BCB6+)
SUPPORTS_CUSTOMVARIANTS Compiler supports custom variants (D6+/BCB6+)
SUPPORTS_VARARGS Compiler supports varargs (D6+/BCB6+)
SUPPORTS_ENUMVALUE Compiler supports values for enums (D6+/BCB6+)
SUPPORTS_DEPRECATED_WARNINGS Compiler supports deprecated warnings (D6+/BCB6+)
SUPPORTS_LIBRARY_WARNINGS Compiler supports library warnings (D6+/BCB6+)
SUPPORTS_PLATFORM_WARNINGS Compiler supports platform warnings (D6+/BCB6+)
SUPPORTS_UNSAFE_WARNINGS Compiler supports unsafe warnings (D7)
SUPPORTS_WEAKPACKAGEUNIT Compiler supports the WEAKPACKAGEUNIT directive
SUPPORTS_COMPILETIME_MESSAGES Compiler supports the MESSAGE directive
HAS_UNIT_LIBC The unit Libc exists (Kylix, FPC on Linux)
HAS_UNIT_RTLCONSTS The unit RTLConsts exists (D6+/BCB6+)
HAS_UNIT_TYPES The unit Types exists (D6+/BCB6+)
HAS_UNIT_VARIANTS The unit Variants exists (D6+/BCB6+)
HAS_UNIT_STRUTILS The unit StrUtils exists (D6+/BCB6+)
XPLATFORM_RTL The RTL supports crossplatform function names (e.g. RaiseLastOSError) (D6+/BCB6+/FPC)
- Compiler Settings
The compiler settings directives indicate whether a specific compiler setting
is in effect. This facilitates changing compiler settings locally in a more
compact and readible manner.
Directive Description
------------------------------------------------------------------------------
ALIGN_ON Compiling in the A+ state (no alignment)
BOOLEVAL_ON Compiling in the B+ state (complete boolean evaluation)
ASSERTIONS_ON Compiling in the C+ state (assertions on)
DEBUGINFO_ON Compiling in the D+ state (debug info generation on)
IMPORTEDDATA_ON Compiling in the G+ state (creation of imported data references)
LONGSTRINGS_ON Compiling in the H+ state (string defined as AnsiString)
IOCHECKS_ON Compiling in the I+ state (I/O checking enabled)
WRITEABLECONST_ON Compiling in the J+ state (typed constants can be modified)
LOCALSYMBOLS Compiling in the L+ state (local symbol generation)
TYPEINFO_ON Compiling in the M+ state (RTTI generation on)
OPTIMIZATION_ON Compiling in the O+ state (code optimization on)
OPENSTRINGS_ON Compiling in the P+ state (variable string parameters are openstrings)
OVERFLOWCHECKS_ON Compiling in the Q+ state (overflow checing on)
RANGECHECKS_ON Compiling in the R+ state (range checking on)
TYPEDADDRESS_ON Compiling in the T+ state (pointers obtained using the @ operator are typed)
SAFEDIVIDE_ON Compiling in the U+ state (save FDIV instruction through RTL emulation)
VARSTRINGCHECKS_ON Compiling in the V+ state (type checking of shortstrings)
STACKFRAMES_ON Compiling in the W+ state (generation of stack frames)
EXTENDEDSYNTAX_ON Compiling in the X+ state (Delphi extended syntax enabled)
*)
{$DEFINE BORLAND}
{ Set FreePascal to Delphi mode }
{$IFDEF FPC}
{$MODE DELPHI}
{$ASMMODE Intel}
{$UNDEF BORLAND}
{$ENDIF}
{$IFDEF BORLAND}
{$IFDEF LINUX}
{$DEFINE KYLIX}
{$ENDIF LINUX}
{$ENDIF BORLAND}
{------------------------------------------------------------------------------}
{ VERXXX to COMPILERX, DELPHIX and BCBX mappings }
{------------------------------------------------------------------------------}
{$IFDEF BORLAND}
{$IFDEF KYLIX}
{$I kylix.inc} // FPC incompatible stuff
{$ELSE ~KYLIX}
{$IFDEF VER170}
{$DEFINE COMPILER9}
{$DEFINE DELPHI9}
{$DEFINE DELPHICOMPILER9}
{$DEFINE RTL170_UP}
{$ENDIF}
{$IFDEF VER160}
{$DEFINE COMPILER8}
{$DEFINE DELPHI8}
{$DEFINE DELPHICOMPILER8}
{$DEFINE RTL160_UP}
{$ENDIF}
{$IFDEF VER150}
{$DEFINE COMPILER7}
{$IFDEF BCB}
{$DEFINE BCB7}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -