📄 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/12/04 10:22:49 $
// 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/BCB
(Win32) application you need to define the VisualCLX symbol in the project
options, if you want to use the VisualCLX library. Alternatively you can use
the IDE expert, which is distributed with the JCL to do this automatically.
Directive Description
------------------------------------------------------------------------------
VCL Defined for Delphi/BCB (Win32) exactly if VisualCLX is not defined
VisualCLX Defined for Kylix; needs to be defined for Delphi/BCB to
use JCL with VisualCLX applications.
- Other cross-platform related defines
These symbols are intended to help in writing portable code.
Directive Description
------------------------------------------------------------------------------
PUREPASCAL Code is machine-independent (as opposed to assembler code)
Win32API Code is specific for the Win32 API;
use instead of "{$IFNDEF CLR} {$IFDEF MSWINDOWS}" constructs
- 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
DELPHI2005 Defined when compiling with Delphi 2005
DELPHI9 Alias for DELPHI2005
DELPHI10 Defined when compiling with Delphi 10
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
DELPHI2005_UP Defined when compiling with Delphi 2005 or higher
DELPHI9_UP Alias for DELPHI2005_UP
DELPHI10_UP Defined when compiling with Delphi 10 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 2005
DELPHICOMPILER10 Defined when compiling with Delphi 10
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 2005
DELPHICOMPILER10_UP Defined when compiling with Delphi 10 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
BCB10 Defined when compiling with C++ Builder 10
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
BCB10_UP Defined when compiling with C++ Builder 10 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
COMPILER10 Defined when compiling with Delphi 10 or C++ Builder 10
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 Personalities of BDS 3.0
COMPILER10_UP Defined when compiling with Delphi 10 or C++ Builder 10 or higher
- 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 Personalities of BDS 3.0 or later
RTL180_UP Defined when compiling with Delphi 10, C++ Builder 6 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 dispatch interfaces (D3+/BCB3+)
SUPPORTS_DISPID Compiler supports dispatch ids (D3+/BCB3+/FPC)
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+)
SUPPORTS_FOR_IN Compiler supports for in loops (D9+)
SUPPORTS_NESTED_CONSTANTS Compiler supports nested constants (D9+)
SUPPORTS_NESTED_TYPES Compiler supports nested types (D9+)
SUPPORTS_CLASS_FIELDS Compiler supports class fields (D9+ .NET)
SUPPORTS_CLASS_HELPERS Compiler supports class helpers (D9+ .NET)
SUPPORTS_CLASS_OPERATORS Compiler supports class operators (D9+ .NET)
SUPPORTS_STRICT Compiler supports strict keyword (D9+ .NET)
SUPPORTS_STATIC Compiler supports static keyword (D9+ .NET)
SUPPORTS_FINAL Compiler supports final keyword (D9+ .NET)
ACCEPT_DEPRECATED Compiler supports or ignores the deprecated directive (D6+/BCB6+/FPC)
ACCEPT_PLATFORM Compiler supports or ignores the platform directive (D6+/BCB6+)
ACCEPT_LIBRARY Compiler supports or ignores the library directive (D6+/BCB6+)
SUPPORTS_CUSTOMVARIANTS Compiler supports custom variants (D6+/BCB6+)
SUPPORTS_VARARGS Compiler supports varargs (D6+/BCB6+)
SUPPORTS_ENUMVALUE Compiler supports assigning ordinalities to values of 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 Unit Libc exists (Kylix, FPC on Linux)
HAS_UNIT_RTLCONSTS Unit RTLConsts exists (D6+/BCB6+)
HAS_UNIT_TYPES Unit Types exists (D6+/BCB6+)
HAS_UNIT_VARIANTS Unit Variants exists (D6+/BCB6+)
HAS_UNIT_STRUTILS 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 VER180}
{$DEFINE COMPILER10}
{$IFDEF BCB}
{$DEFINE BCB10}
{$ELSE}
{$DEFINE DELPHI10}
{$DEFINE DELPHICOMPILER10}
{$ENDIF}
{$DEFINE RTL180_UP}
{$ENDIF}
{$IFDEF VER170}
{$DEFINE BDS3}
{$DEFINE COMPILER9}
{$DEFINE DELPHI9}
{$DEFINE DELPHI2005} // synonym to DELPHI9
{$DEFINE DELPHICOMPILER9}
{$DEFINE RTL170_UP}
{$ENDIF}
{$IFDEF VER160}
{$DEFINE BDS2}
{$DEFINE COMPILER8}
{$DEFINE DELPHI8}
{$DEFINE DELPHICOMPILER8}
{$DEFINE RTL160_UP}
{$ENDIF}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -