Delphi中预编译指令如何使用

2016-02-19 20:46 6 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}

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

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

上一篇：安装程序打包interbase的方法
下一篇： url编码与解码工具代码

看过《Delphi中预编译指令如何使用》的人还看了以下文章更多>>

Delphi中预编译指令如何使用 02-19
JDBC之PreparedStatement类中预编译的综合应用解析 02-19
通过预编译头文件来提高CB的编译速度 02-19
编译指令#pragma详解 02-19
Delphi中建议使用的语句 02-19
Delphi中OnDrawCell的使用技巧 02-19
Delphi中多媒体组件使用解析 02-19
Delphi,编译文件（第12页） 02-19
Delphi中的包（一）：关于exe的编译、连接和执行 02-19
Delphi,编译文件（第8页） 02-19

资源文件在DELPHI中的使用

标签： Delphi

资源是存放在扩展名.RES的文件里的二进制数据结构，在DELPHI中资源文件可以使用图象编辑器来制作（IMAGEEDITOR），或者使用其他的工具。如：BORLAND公司提供的RADPACKFORDELPHI中的RESOURCEWORKSHOP来创建。资源文件中通常存放的是应用程序可以随时存取的一些对象，包括：ICON、CURSOR、BITMAP、FONT等近十种。大部分的资源在通常的...

Delphi中避免使用ClassName判断对象的类型

标签：编程语言网络编程

在公司原有系统的代码中，我看到了很多判别对象的ClassName属性进行分别处理的代码。而且似乎已经是处理类似问题的标准方法。但是其中可能会隐含一些问题。首先，我们知道多态是面向对象的三大特性之一。所谓多态，其思想就是，对于不同的具体类型，我们可以通过相同的抽象接口进行访问，而不必关系具体类型的实现细节。就...

使用ZendEncode编译PHP程序

标签： Web开发

一、ZendEncode的工作原理使用PHP的人都知道，它是一个脚本编程工具，由它写的程序，必须以源码的形式放置在Web服务器上，所以我们无法保护自己的源代码。而且各位都知道任何一个脚本程序的执行效率同具有相同功能的编译好的二进制代码相比较，它的执行效率都是比较慢的。那么要是有一个工具能够帮我们把用php写的程序编译成二进制代...

Delphi中如何实现透明按钮

标签： Delphi

各位亲爱的读者，在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时，我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果？笔者在互联网搜索了不少时间也没有找到这方面的控件，于是决定自己DIY一番，下面笔者就将自己的经验与广大读者共享一番。要实现透明按钮，共需...

Delphi中API编程－－在Delphi中调用API函数

标签： Delphi

Delphi作为一种面向对象的可视化开发工具，以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。尽管Delphi已经提供了非常强大的开发组件（VCL），但灵活使用API函数一定可以使你的程序增色不少。状态键的检查当今不少流行软件的编辑窗口（包括Delphi的代码编辑窗口）的底部都有一个状态条...

查看更多精彩>>