一．指令介紹：

1．  DEFINE指令：

格式：{$DEFINE 名稱}

              說明  ：用于定義一個在當前單元有效的符號（Symbol）。定義了

               之后可以使用IF DEF和IFNDEF指令來判斷該符號是否存在。

2．  UNDEF指令：

格式：{$UNDEF 名稱}

說明：用于取消一個在當前單元已經定義的符號（Symbol）。該指令和DEFINE

配合使用。

3．  IFDEF指令：

格式：{$IFDEF 名稱}

說明：如果該指令后的名稱已經定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。

4．  IFNDEF指令：

格式：{$IFNDEF 名稱}

說明：如果該指令后的名稱沒有定義，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。

5．  IFOPT指令：

格式：{$IFOPT 開關}

說明：如果該指令后的開關已經設立，則編譯該指令后直到{$ELSE}或{$ENDIF}之間的代碼段。

舉例：{$IFOPT R+}

 Writeln('編譯時打開范圍檢查開關');

{$ENDIF}

6．  ELSE指令：

格式：{$ELSE}

說明：通過判斷前綴Ifxxx的條件式來確定該指令到{$ENDIF}之間的代碼段是否應該被編譯或者忽略掉。

7．  ENDIF指令：

格式：{$ENDIF}

說明：和Ifxxx配合，指明條件預編譯段源代碼段的結束位置。

二．范例：

編寫例子，通過預先定義不同的編譯符號，進行不用代碼段的編譯工作。

1．  新建一個Delphi項目，在Unit1單元的窗體上添加一個Button按鈕。

2．  編寫程序如下：

   unit Unit1;

 interface

 uses

     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

 StdCtrls;

type

  TForm1 = class(TForm)

        Button1: TButton;

    PRocedure FormCreate(Sender: TObject);

        procedure Button1Click(Sender: TObject);

  private

        { Private declarations }

  public

        { Public declarations }

  a : String;

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

{$DEFINE AAA}                            // 定義行。

procedure TForm1.FormCreate(Sender: TObject);

begin

a := 'Other';

{$IFDEF AAA}

  a := 'AAA';

{$ENDIF}

{$IFDEF BBB}

  a := 'BBB';

{$ENDIF}

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  Caption := a;

end;

end.

{注：粗體字部分為輸入的代碼}

3．  編譯后運行，按下Button，則看到窗體標題欄顯示“AAA”。程序編譯了a := ’AAA’的語句。

4．  改變定義行的程序段：

當改為

  {$DEFINE BBB}

時，再次編譯運行，則看到窗體標題欄顯示“BBB”。程序編譯了a := ’BBB’的語句。

當取消定義行或改為

  {$DEFINE NOTHING}

或其他名稱時，再次編譯運行，則看到窗體標題欄顯示“Other”。程序只編譯了a := ’Other’的語句。

三．如何快速的制作和更改版本：

使用預編譯指令，在制作同一個程序的多個版本時，只需找出各版本中有區(qū)別的單元，依次定義統(tǒng)一的版本符號（Symbol），然后在程序段中加入條件預編譯指令，就可以在實際編譯中取舍編譯不同的程序部分，這樣對于程序的規(guī)范性（定義統(tǒng)一的版本符號）和保密性（不同的版本編譯不同的程序部分）有很好的作用。

然而，由于該類預編譯指令只能作用于當前單元，所以不便之處在于不能在一個公共單元定義一次版本符號，而必須在各單元中定義統(tǒng)一版本符號才行，故此，在更換版本時，需要確定所有的版本符號都已改變，這樣才能保證各版本的正確性，對此，可以使用Delphi IDE的“Find in Files…”（多個文件中查找字符串）的功能，找出所有定義版本符號的文件和位置，然后依次更改，保證所有位置已經改正。