WEB开发网
开发学院软件开发Delphi Delphi中预编译指令如何使用 阅读

Delphi中预编译指令如何使用

　2006-02-04 14:26:36　来源：WEB开发网　　　
核心提示：我的主页: http://www.tommstudio.com/ 在Delphi中，也有与C相似的预编译指令，Delphi中预编译指令如何使用，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），请检查你得代码，如果随便输入代

我的主页: http://www.tommstudio.com/

在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就能编译通过，那还了得。　

Tags：Delphi 编译 指令

编辑录入：爽爽　[复制链接] [打 印]
更多精彩
赞助商链接

热点阅读
焦点图片
最新推荐
精彩阅读