Delphi 中的预编译指令

简介:  Delphi 中的预编译指令在Delphi中,也有与C相似的预编译指令,虽然该类指令只在当前的单个文件有效(也有可能是笔者未全面了解该类指令的真正用法),但是这一类指令对于进行多版本的制作工作(如从标准版中出学习版),确实有着相当不错的用途。

 

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

 

相关文章
|
监控 物联网 Java
打造高可用系统:深入了解心跳检测机制
本文介绍了分布式系统中**心跳检测**的重要机制,用于监测系统节点的健康状态和通信畅通。心跳检测通过定期发送信号,若节点在预定期限内未响应则视为可能失效。处理机制包括重试、报警和自动修复。文章还提到了**周期检测**和**累计失效检测**两种策略,并给出Java代码示例展示心跳检测实现。此外,列举了心跳检测在分布式数据库、微服务和物联网等场景的应用,以及优化策略如动态调整心跳频率和优化超时机制。最后,强调了心跳检测对系统稳定性和高可用性的关键作用。
2292 2
|
SQL 监控 Java
Mycat - 数据库分库分表中间件,国内最活跃的、性能最好的开源数据库中间件!
Mycat是什么 Mycat - 数据库分库分表中间件,国内最活跃的、性能最好的开源数据库中间件! 一个彻底开源的,面向企业应用开发的大数据库集群 支持事务、ACID、可以替代MySQL的加强版数据库 一个可以视为MySQL集群的企业级数据库,用来替...
3161 94
|
机器学习/深度学习 编解码 达摩院
【OpenVI-图像超分实战篇】别用GAN做超分了,快来试试基于扩散模型的图像超分吧!
近10年来,深度学习技术得到了长足进步,在图像增强领域取得了显著的成果,尤其是以GAN为代表的生成式模型在图像复原、老片修复,图像超分辨率等方面大放异彩。图像超分辨率是视频增强方面,用于提升画质的典型应用。生成对抗网络GAN使得在图像分辨率增加的同时,保持细节特征,补充生成真实的纹理,其中应用广泛的工作是Real-ESRGAN。 扩散模型DiffusionModel在图像超分辨率这方面的新的应用,展现出其超过GAN的生成多样性和真实性。看完后,你会发现,还在用GAN做图像超分辨率吗?已经OUT了,快来试试DiffusionModel吧!
28979 3
【OpenVI-图像超分实战篇】别用GAN做超分了,快来试试基于扩散模型的图像超分吧!
|
机器学习/深度学习 并行计算 算法
基于sklearn随机森林算法对鸢尾花数据进行分类
基于sklearn随机森林算法对鸢尾花数据进行分类
894 0
基于sklearn随机森林算法对鸢尾花数据进行分类
|
数据可视化 PyTorch 算法框架/工具
Pychram Pytorch Tensorboard 报错 “No dashboards are active for the current data set.“ 解决方案
Pychram Pytorch Tensorboard 报错 “No dashboards are active for the current data set.“ 解决方案
Pychram Pytorch Tensorboard 报错 “No dashboards are active for the current data set.“ 解决方案
|
云安全 人工智能 运维
阿里云认证含金量高吗?考哪个好?
阿里云认证书是现在很多云技术从业人员的必考证书,不仅能提升自己的能力,还能让自己在面试过程中有更多谈判的筹码,获得更好的岗位和待遇。
1706 0
阿里云认证含金量高吗?考哪个好?
|
关系型数据库 MySQL
Mysql中通过关联update将一张表的一个字段更新到另外一张表中
Mysql中通过关联update将一张表的一个字段更新到另外一张表中
1386 0
|
1天前
|
数据采集 人工智能 安全
|
10天前
|
云安全 监控 安全