delphi - 根据当前事件项目进行条件编译

Question

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

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

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

unit MySharedUnit
var
  flag : TFlagValues;

implementation
[...]

initialization

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

目前，我使用 项目定义的环境变量 (仅在 项目选项 之一中定义)来决定事件项目。

我的问题是:

是否有另一种或更优雅的方法来做到这一点，比如内置的#define'd 值左右，当测试应用程序应该在 Release模式下运行时，它不需要我手动修改项目选项？

Answer 1

Delphi 知道条件编译，例如:

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

如果您愿意，可以在项目中设置 FULLVERSION(或任何其他名称)。

使用 Delphi 2010，您可以为 Debug 和 Release 版本提供一组不同的选项。