关于{$Define}编译开关(100分)

  • 主题发起人 kongxiangji
  • 开始时间
K

kongxiangji

Unregistered / Unconfirmed
GUEST, unregistred user!
{$DEFINE }开关是不是只在一个单元起作用?能不能声明一个全局的编译开关?
在整个工程里面都能用的编译开关。
 
B

bmsr

Unregistered / Unconfirmed
GUEST, unregistred user!
可以 定义一个文本文件
然后在
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}
 
D

dedema

Unregistered / Unconfirmed
GUEST, unregistred user!
{$DEFINE }开关是不是只在一个单元起作用?
答:是的.
能不能声明一个全局的编译开关?
在整个工程里面都能用的编译开关。
答:能.
 
K

kongxiangji

Unregistered / Unconfirmed
GUEST, unregistred user!
bmsr:
能不能说清楚一点啊?
文本文件在哪引入程序。
比如我在Unit1里面定义开关{$Define IsDesign}
在Unti2里面用
uses Unit1;
{$IF Defined(ISDesign)}
//my code
{IFEND}
为什么不执行里面代码?
我想声明一个全局的开关,怎么弄?
 

铁盒子

Unregistered / Unconfirmed
GUEST, unregistred user!
可以在project options->directories/conditionals的conditionals中设置即可
 
K

kongxiangji

Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢,问题搞定。
 
顶部