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

原创 2001年05月14日 10:20:00

   Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相当不错的用途。

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

一.指令介绍:

1.  DEFINE指令:

格式:{$DEFINE 名称}

              说明  :用于定义一个在当前单元有效的符号(Symbol)。定义了

               之后可以使用IF DEFIFNDEF指令来判断该符号是否存在。

 

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

 

  

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

在Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相...
  • E_wsq
  • E_wsq
  • 2008年04月07日 10:02
  • 543

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

在Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相...
  • huxianbo
  • huxianbo
  • 2010年07月26日 09:22
  • 119

Delphi 预编译指令说明

         Delphi作为一个优秀的开发工具,这不仅是由于它开创了“构件(Component)”时代,影响深远;另一个原因是它拥有非常出色的编译器,Borland(Inprise)公司宣称De...
  • hank5658
  • hank5658
  • 2009年02月10日 17:03
  • 986

Delphi 中的预编译指令

Delphi 中的预编译指令
  • shuaihj
  • shuaihj
  • 2011年01月09日 22:18
  • 759

Delphi中预编译指令

《Delphi下深入Windows核心编程》(附录A Delphi编译指令说明)Delphi快速高小的编译器主要来自Object PASCAL的严谨,使用Delphi随时都在与编译器交流,大部分情况下...
  • xiaotao2004
  • xiaotao2004
  • 2006年09月13日 13:57
  • 1528

Delphi中预编译指令(转)

Delphi中预编译指令(转)《Delphi下深入Windows核心编程》(附录A Delphi编译指令说明)Delphi快速高小的编译器主要来自Object PASCAL的严谨,使用Delphi随时...
  • leonkin
  • leonkin
  • 2010年12月21日 10:24
  • 367

Delphi 预编译指令

《Delphi下深入Windows核心编程》(附录A Delphi编译指令说明) Delphi快速高小的编译器主要来自Object PASCAL的严谨,使用Delphi随时都在与编译器交流,大部分情...
  • yanjiaye520
  • yanjiaye520
  • 2012年10月20日 09:21
  • 1263

Delphi预编译指令

Delphi编译指令共有三种,开关编译指令、参数编译指令和条件编译指令,下面分别讲述三种编译指令 开关编译指令 开关编译指令的特点是它有ON 、OFF两种转换状态。对于单字符版本,你可以在编译指令后...
  • star_of_light
  • star_of_light
  • 2015年10月15日 11:31
  • 226

c++中pragma预编译指令简介

在所有的预处理指令中,#pragma 指令可能是最复杂的了,它的作用是设定编译器的状态或者是指示编译器完成一些特定的动作。#pragma指令对每个编译器给出了一个方法,在保持与C和C++语言完全兼容的...
  • luckywqf
  • luckywqf
  • 2014年02月14日 23:39
  • 705

Delphi预编译指令总结

Delphi作为一个优秀的开发工具,这不仅是由于它开创了"构件(Component)"时代,影响深远;另一个原因是它拥有非常出色的编译器,Borland(Inprise)公司宣称Delphi具有世界上...
  • my98800
  • my98800
  • 2017年05月02日 21:08
  • 120
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:关于Delphi中预编译指令的使用方法
举报原因:
原因补充:

(最多只允许输入30个字)