Delphi中预编译指令的使用方法

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

{$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’的语句。


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

使用预编译指令，在制作同一个程序的多个版本时，只需找出各版本中有区别的单元，依次定义统一的版本符号（Symbol），然后在程序段中加入条件预编译指令，就可以在实际编译中取舍编译不同的程序部分，这样对于程序的规范性（定义统一的版本符号）和保密性（不同的版本编译不同的程序部分）有很好的作用。

然而，由于该类预编译指令只能作用于当前单元，所以不便之处在于不能在一个公共单元定义一次版本符号，而必须在各单元中定义统一版本符号才行，故此，在更换版本时，需要确定所有的版本符号都已改变，这样才能保证各版本的正确性，对此，可以使用Delphi   IDE的“Find   in   Files…”（多个文件中查找字符串）的功能，找出所有定义版本符号的文件和位置，然后依次更改，保证所有位置已经改正。