Delphi 的编译指令

Delphi 的编译指令(2): 条件语句的更多用法。

摘自：http://tech.ddvip.com/2009-04/1239360887114445.html

　　1. $IFDEF 等同于 $IF DEFINED(...) :

　　它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识.

begin
{$IFDEF　VER200}
ShowMessage('这是　Delphi　2009');
{$ENDIF}
{$IF　DEFINED(VER200)}
ShowMessage('这是　Delphi　2009');
{$IFEND}
end;


　　2. $IFNDEF 等同于 $IF NOT DEFINED(...) :

　　它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER150 是 Delphi 7 的标识.

begin
{$IFNDEF　VER150}
ShowMessage('这不是　Delphi　7');
{$ENDIF}
{$IF　NOT　DEFINED(VER150)}
ShowMessage('这不是　Delphi　7');
{$IFEND}
end;


　　3. 可以使用 or 和 and:

begin
{$DEFINE　AAA}
{$DEFINE　BBB}
{$IF　DEFINED(AAA)　OR　DEFINED(BBB)}
ShowMessage('条件标识符　AAA　和　BBB　其中一个定义了');
{$IFEND}
{$IF　DEFINED(AAA)　AND　DEFINED(BBB)}
ShowMessage('条件标识符　AAA　和　BBB　都定义了');
{$IFEND}
end;


　　4. 可以使用 System 单元里的常量: 我测试了 System 单元里的很多常量都没问题.

begin
ShowMessage(FloatToStr(CompilerVersion));　{在　Delphi　2009　中,　CompilerVersion　=　20.0}
{$IF　CompilerVersion　>=　17.0}
ShowMessage('这是　Delphi　2005　或以上的版本');
{$IFEND}
end;


　　5. 使用 $IFOPT 判断编译开关: Delphi 挺好玩, 26个字母分别安排成不同的开关指令(用 Ctrl+o+o 查看, 当然开关指令不止这些);

　　$IFOPT 可以判断这些指令是否打开.

　　这个指令不是很常用, 我看了一下 2009 的 VCL 源码, 总共才用了 6 次.

begin
{$IFOPT　B+}
ShowMessage('指令　B　已打开');
{$ELSE}
ShowMessage('指令　B　已关闭');
{$ENDIF}
{$B+}
{$IFOPT　B+}
ShowMessage('Ok!');
{$ENDIF}
end;