代码之家 › 专栏 › 技术社区 › sum1stolemyname

取决于当前活动项目的条件编译

delphi-2010 delphi

sum1stolemyname · 技术社区 · 14 年前

我正在为Delphi2010中的一个大型应用程序开发一个新模块。

我将源组织在一个由两个项目组成的项目组中,一个项目用于构建完整的应用程序,另一个项目用于启动我的测试套件(它与主应用程序共享一些源代码)。

在初始化一个单元的过程中,我需要根据编译的两个单元中的哪一个采取不同的行动。

unit MySharedUnit
var
  flag : TFlagValues;

implementation
[...]

initialization

if IsTestProject then
  flag := TestValue
else
  flag := ReleaseValue;
end.

目前,我使用 项目定义的环境变量 (仅在 项目的选项 )以决定活动项目。

我的问题是:

有没有其他或更优雅的方法来实现这一点,比如内置的define'd值,当测试应用程序应该在发布模式下运行时,不需要我手工修改项目选项?

1 回复 | 直到 14 年前

Toon Krijthe 14 年前

initialization
{$IFDEF FULLVERSION}
  flag := ReleaseValue;
{$ELSE}
  flag := TestValue
{$ENDIF}
end.

推荐文章

user0042 · Delphi是否为简单的常见操作提供编译器生成的代码?

7 年前

Christino · Delphi 2010和泛型

7 年前

zac · 对象检查器网格高度是否有固定值?Delphi 2010[副本]

8 年前

john_who_is_doe · 求值器中的表达式非法(访问冲突)(&A)

9 年前

dummzeuch Stijn Sanders · 编译Delphi 2010项目时,什么可能导致“找不到所需的包‘IndyCore’”?

11 年前

JakeSays · 从任务管理器隐藏和显示流程

12 年前

marco-fiset · 如何解决Delphi无法准确处理日期时间操作的问题?

12 年前

David Cornelius · 我找到了ComClass,现在我该如何引用它?

12 年前

Edgar Holguin · 德尔福与印度

12 年前

awmross · 为什么编译器会警告变量可能无法初始化?

12 年前