可以 定义一个文本文件
然后在
interface
{$I besky.inc}
//------------文件实列-------
{******************************************}
{ }
{ ByandSkycomponent v1.0 }
{ Include file }
{ }
{ Copyright (c) 2002-2006 }
{ by 白忙剩人 }
{ }
{ }
{******************************************}
{$B-} {- Complete Boolean Evaluation }
{$R-} {- Range-Checking }
{$V+} {- Var-String Checking }
{$T-} {- Typed @ operator }
{$X+} {- Extended syntax }
{$P+} {- Open string params }
{$J+} {- Writeable structured consts }
{$H+} {- Use long strings by default }
{$IFDEF VER120} // Delphi 4.0
{$DEFINE Delphi4}
{$ENDIF}
{$IFDEF VER130} // Delphi 5.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$ENDIF}
{$IFDEF VER140} // Delphi 6.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
{$IFDEF VER150} // Delphi 7.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$ENDIF}
{$IFDEF VER170} // Delphi 9.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$DEFINE Delphi9}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_DEPRECATED OFF}
{$ENDIF}
{$IFDEF VER180} // Delphi 10.0
{$DEFINE Delphi4}
{$DEFINE Delphi5}
{$DEFINE Delphi6}
{$DEFINE Delphi7}
{$DEFINE Delphi9}
{$DEFINE Delphi10}
{$DEFINE RICHBCB}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_DEPRECATED OFF}
{$ENDIF}