Delphi中预编译指令如何使用

  • A+
所属分类:[开发技巧]

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

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: