Delphi 预编译指令 的用法

A.3 使用条件编译指令
条件编译指令是非常重要的编译指令，他控制着在不同条件下（例如，不同的操作系统）产生不同的代码。条件编译指令是包含在
注释括号之内的，如下表所示。
              
   条件编译指令      含义
     $DEFINE   用于定义一个条件符号，一旦定义，条件符号就为真
     $ELSE     与$IFDEF配合使用，如果$IFDEF条件为假，则只对源文件$ELSE后一小部分进行编译
     $ENDIF    结束一个以$IF开始的条件段
  
     $IFDEF    对条件符号进行判断，为真则编译源文件
     $IFNDEF   对条件符号进行判断，为假则编译源文件 
     $IFOPT    根据编译开关状态，对源文件编译
 
     $UNDEF    撤消以前的条件符号定义
这些条件编译指令是非常有用的。例如，可以通过开关的状态来控制编译：
     {IFOPT R+}
         showmessage('Compiled with range-checking');
     {$ENDIF}
也可以通过定义条件符号来控制编译：
     
     {$Define s}
     ……
     {$ifdef s} 
         showmessage('yes');
     {$else}
         showmessage('no');
     {$endif} 
他的编译结果是显示'yes'，但是如果省去{$Define s}则显示'no'。
在Delphi中已经预定义了一些关键的条件符号，如下表所示。
   条件符号           含义
    VERxx    编译器版本，XX表示版本，例如：Delphi 1.0 的编译器版本为80、Delphi 5.0 的编译器版本为130
    WIN32    是否WIN32的运行环境(Windows 95.98/NT/2000)
    CPU386   是否Intel386以上的处理器
    CONSOLE  是否控制台程序
Delphi的编译器指令除了以上的指令外还有一些，不过最为常用的指令已经全部介绍完了。对于普通的程序，Delphi是不需要编程者去添加编
译器指令的，Delphi已经自动完成，但是要得到高品质的应用程序或者有特殊的要求的程序就必须熟悉Delphi的编译指令。Delphi不仅有最快
的编译器而且编译器的功能也非常强大。
 
**********************************************************************************************
简单例子:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FCaption: string;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
//用到文件  VersionDefinition.inc
{$I VersionDefinition.inc} 或  {$DEFINE   AAA}   //   定义行
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  FCaption := 'Other';
  {$IFDEF AAA}
  FCaption := 'AAA';
  {$ENDIF}
  {$IFDEF BBB}
  FCaption := 'BBB';
  {$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := FCaption;
end;
end.
**************************
文件VersionDefinition.inc内容
//////////////////////////
  {$DEFINE AAA}
  {..$DEFINE BBB} 
-------------------------------------------
 1.编译后运行，按下Button，则看到窗体标题栏显示“AAA”。程序编译了FCaption   :=   ’AAA’的语句。   
 2.改变定义行的程序段：   
  当改为{$DEFINE   BBB}时，再次编译运行，则看到窗体标题栏显示“BBB”。程序编译了FCaption   :=   ’BBB’的语句。当取消定义行或改为{$DEFINE   NOTHING}或其他名称时，再次编译运行，则看到窗体标题栏显示“Other”。程序只编译了FCaption   :=   ’Other’的语句。