Delphi中预编译指令如何使用

2016-02-19 20:46 10 1 收藏

今天图老师小编给大家展示的是Delphi中预编译指令如何使用,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - 编程语言 】

我的主页: 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}  
  

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
 
   
   
  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.  
  {注:粗体字部分为输入的代码}  
  

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
 
  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就能编译通过,那还了得。  

来源:http://www.tulaoshi.com/n/20160219/1624490.html

延伸阅读
标签: Delphi
  资源是存放在扩展名.RES的文件里的二进制数据结构,在DELPHI中资源文件可以使用图象编辑器来制作(IMAGEEDITOR),或者使用其他的工具。如:BORLAND公司提供的RADPACKFORDELPHI中的RESOURCEWORKSHOP来创建。资源文件中通常存放的是应用程序可以随时存取的一些对象,包括:ICON、CURSOR、BITMAP、FONT等近十种。大部分的资源在通常的...
标签: Delphi
  各位亲爱的读者,在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时,我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果?笔者在互联网搜索了不少时间也没有找到这方面的控件,于是决定自己DIY一番,下面笔者就将自己的经验与广大读者共享一番。 要实现透明按钮,共需...
标签: Delphi
  在数据库应用软件的开发过程中,经常需要把数据转换成Excel文件,让用户作进一步的数据处理。而Delphi是开发数据库应用系统的常用工具,那么,如何在Delphi中操作Excel呢? 我们知道,在Microsoft Office软件中有一种内嵌的编程语言VBA,它是一种宏语言,利用它,你可以编写出功能强大的代码,如打开文件、修改数据、保存数据...
标签: Web开发
一、ZendEncode的工作原理 使用PHP的人都知道,它是一个脚本编程工具,由它写的程序,必须以源码的形式放置在Web服务器上,所以我们无法保护自己的源代码。而且各位都知道任何一个脚本程序的执行效率同具有相同功能的编译好的二进制代码相比较,它的执行效率都是比较慢的。那么要是有一个工具能够帮我们把用php写的程序编译成二进制代...
  在公司原有系统的代码中,我看到了很多判别对象的ClassName属性进行分别处理的代码。而且似乎已经是处理类似问题的标准方法。但是其中可能会隐含一些问题。 首先,我们知道多态是面向对象的三大特性之一。所谓多态,其思想就是,对于不同的具体类型,我们可以通过相同的抽象接口进行访问,而不必关系具体类型的实现细节。就...

经验教程

238

收藏

32
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部