关于Delphi中预编译指令的使用方法_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…”(多个文件中查找字符串)的功能,找出所有定义版本符号的文件和位置,然后依次更改,保证所有位置已经改正。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/