Delphi 中的預編譯指令

<a target="_blank" href="http://www.cnblogs.com/del/articles/1049373.html">Delphi 中的預編譯指令</a>

在Delphi中，也有與C相似的預編譯指令，雖然該類指令隻在目前的單個檔案有效（也有可能是筆者未全面了解該類指令的真正用法），但是這一類指令對于進行多版本的制作工作（如從标準版中出學習版），确實有着相當不錯的用途。 

一．指令介紹： 

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'; 

{$IFDEF BBB} 

a := 'BBB'; 

procedure TForm1.Button1Click(Sender: TObject); 

Caption := a; 

end. 

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

3．編譯後運作，按下Button，則看到窗體标題欄顯示“AAA”。程式編譯了a := ’AAA’的語句。 

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

當改為 

{$DEFINE BBB} 

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

當取消定義行或改為 

{$DEFINE NOTHING} 

或其他名稱時，再次編譯運作，則看到窗體标題欄顯示“Other”。程式隻編譯了

a := 'Other'的語句。 

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

使用預編譯指令，在制作同一個程式的多個版本時，隻需找出各版本中有差別的單元，依次定義統一的版本符号（Symbol），然後在程式段中加入條件預編譯指令，就可以在實際編譯中取舍編譯不同的程式部分，這樣對于程式的規範性（定義統一的版本符号）和保密性（不同的版本編譯不同的程式部分）有很好的作用。 

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

一般是這樣的： 

{$HINTS OFF} &lt;----OFF表示關閉 

procedure Test; 

I: Integer; 

{$HINTS ON} &lt;----ON 表示打開 

也有用:

{$I+} &lt;----表示打開 

{$I-} &lt;----表示關閉 

這個編譯指令是對I/O的檢查。 

更具體的請查閱相關資料。 

{$HINTS ON} 或是 {$HINTS OFF} &lt;----是否給出提示 

{$WARNINGS ON} 或是 {$WARNINGS OFF} &lt;----是否給出警告 

報錯說明你的代碼不能正确編譯通過，請檢查你得代碼。如果随便輸入代碼DELPHI就能編譯通過，那還了得。