delphi如何象C一样进行条件编译

Question

使用编译开关:
{$IFDEF CONDITION}
...
{$ELSE}
...
{$ENDIF}
等等

Answer 1

to chendaiyin(amazon)　
与C有点类似，能详细点吗？
CONDITION在哪定义？define ?

Answer 2

procedure foo1;
var
  ConditionVar : Integer;
begin
  {$IFDEF ConditionVar}
  ShowMessage('Define var ConditionVar');
  {$ELSE}
  ShowMessage('Don''t define var ConditionVar');
  {$ENDIF}
end;

Answer 3

to iamprogram(光)　
thank you
所有的窗体定义在哪里？

Answer 4

关于Delphi中的条件编译 Delphi支持类似于C++中条件编译的概念。其方法也很简单。不过，因为使用频率相对较少的缘故，有些人对它还是不太熟悉，而且Delphi和C++在条件编译的语法上也有一点小的差别，所以有必要简单提一下。 最简单的形式类似这样：{$IFDEF DEBUG}  ShowMessage(‘Display a Debug Message!’);{$ENDIF} 在Delphi 6中，支持IFDEF的一个增强的形式：IF。IF不仅可以测试符号定义，而且允许测试常量（包括常量表达式，如SizeOf，Pred，Succ等），而且能够测试组合条件。下面是一个例子：const  DebugControl = 3;{IF Defined(DEBUG) and (DebugControl>=3)}  ShowMessage( ‘High Debug Level!’);{$IFEND}熟悉C++的朋友应该注意，测试结束部分有两种形式，分别是ENDIF和IFEND，它们分别用于对应IFDEF(也包括IFNDEF)和IF，不可以混用，否则将得到一个出错信息，这是Object Pascal和C++的一个不同点。 更复杂一些的形式如下：{$IFDEF ...}  ...{$ELSEIF ...}  ...{$ELSE}  ...{$IFEND} 条件编译在Delphi 6中变得相对比较重要，因为Delphi 6分别支持VCL和CLX这两个不同的库。因而在VCL中和其他一些地方，你能够看到类似这样的语句：{$IF Defined(CLX)}  ...{$IFEND} Delphi中预定义了一些条件编译符号。下面列出其中比较重要的一些：1.VER140这个定义暗示Delphi 6.0在Borland Pascal产品家族中的真正版本号是14.0。在Delphi 5中则定义了VER130。应用如下：{$IFDEF VER140}  ShowMessage('Is Delphi 6!'){$ENDIF}{$IFDEF VER130}  ShowMessage('Is Delphi 5!'){$ENDIF}