Delphi 中的预编译指令

转载 2011年01月09日 22:18:00

 

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

一般是这样的: 


{$HINTS OFF} <----OFF表示关闭 

procedure Test; 

var 

I: Integer; 

begin 

end ; 

{$HINTS ON} <----ON 表示打开 


也有用:


{$I+} <----表示打开 

{$I-} <----表示关闭 


这个编译指令是对I/O的检查。 

更具体的请查阅相关资料。 


{$HINTS ON} 或是 {$HINTS OFF} <----是否给出提示 

{$WARNINGS ON} 或是 {$WARNINGS OFF} <----是否给出警告 


报错说明你的代码不能正确编译通过,请检查你得代码。如果随便输入代码DELPHI就能编译通过,那还了得。

 

相关文章推荐

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

====================================================== 注:本文源代码点此下载 =============================...

Delphi7.0 预编译指令说明

Delphi7.0 预编译指令说明
  • shuaihj
  • shuaihj
  • 2011年01月09日 22:18
  • 1940

Delphi 预编译指令

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

Delphi预编译指令总结

Delphi预编译指令总结 Delphi作为一个优秀的开发工具,这不仅是由于它开创了"构件(Component)"时代,影响深远;另一个原因是它拥有非常出色的编译器,Borland(Inpris...
  • Hmillet
  • Hmillet
  • 2017年06月22日 09:06
  • 440

#pragma预编译指令详解

  • 2013年08月20日 13:58
  • 63KB
  • 下载

几个预编译指令的用法

  • 2012年11月04日 14:42
  • 35KB
  • 下载

IOS #define和预编译指令

预处理过程扫描源代码,对其进行初步的转换,产生新的源代码提供给编译器。可见预处理过程先于编译器对源代码进行处理。 预处理指令是以#开头的代码行,#后是指令关键字,在关键字和#号之间允许存在任意个...

C中的几个预编译指令

  • 2013年04月28日 11:25
  • 46KB
  • 下载

C/C++中的预编译指令

程序的编译过程可以分为预处理、编译、汇编三部分,其中预处理是首先执行的过程,预处理过程扫描程序源代码,对其进行初步的转换,产生新的源代码提供给编译器。 预处理过程读入源代码之后,会检查代码里包含的预...

#pragma 预编译指令

在所有的预处理指令中,#pragma 指令可能是最复杂的了,它的作用是设定编译器的状态或者是指示编译器完成一些特定的动作。 #pragma指令对每个编译器给出了一个方法,在保持与C和C++语言完全兼容...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 中的预编译指令
举报原因:
原因补充:

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