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…”(多个文件中查找字符串) 的功能,找出所有定义版本符号的文件和位置,然后依次更改,保证所有位置已经改正。