Delphi中預編譯指令的使用方法

內容來源：http://www.hackhome.com/html/jskf/sjkyy/2006/0612/31553.html

一．指令介紹
1. DEFINE指令： 格式：{$DEFINE 名稱}
說明：用於定義一個在當前Unit有效的Symbol。定義了之後可以使用IF DEF 和 IFNDEF　
　　　指令來判斷該Symbol是否存在。

2. UNDEF指令： 格式：{$UNDEF 名稱}
說明：用於取消一個在當前Unit已經定義的Symbol。該指令和DEFINE配合使用。

3. IFDEF指令： 格式：{$IFNDEF 名稱}
說明：如果該指令後的名稱已經定義，則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
程式碼。

4. IFNDEF指令： 格式：{$IFNDEF 名稱}
說明：如果該指令後的名稱已經定義，則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
程式碼。

5. IFOPT指令： 格式：{$IFOPT 开关}
說明：如果該指令後的开关已經設立，則編譯該指令後直到{$ELSE}或{$ENDIF}之間的
　　　程式碼。

　 6. ELSE指令： 格式：{$ELSE}
說明：透過前面的IFXXXX的條件來確定該指令到{$ENDIF}之間的程式碼是否應該被編
　　　譯或被忽略。

7. ENDIF指令： 格式：{$ENDIF}
說明：與IFXXXX配合，指明條件編譯程式碼的結束位置。

EX：
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); 字串3
begin
Caption := a;
end;

end.

編譯後，按下Button，顯示“AAA”。
程式編譯了a := ’AAA。


如何快速的制作和更改版本：
　　使用預編譯指令，在制作同一個程式的多個版本時，只需找出各版本中有區別的Unit，依次定義統一的版本Symbol，然後在程式中加入條件預編譯指令，就可以在實際編譯中取捨編譯不同的程式部份，這樣對於程式的規範性和保密性有很好的作用。
　　然後，由于該類編譯指令只能作用於當前Unit，所以不能在一個公共Unit定義一次版本Symbol，而必須在各Unit中定義統一版本Symbol才行，因此，在更換版本時，需要確定所有的Symbol都已改變，這樣才能確保各版本的正確性，因此，可以使用Delphi IDE的Find in Files....(多個文件中尋找字串）的功能，找出所有定義版本Symbol的文件和位置，然後依次更改　保證所有位置已修改。