Delphi中预编译指令如何使用
2008-04-09 04:21:39来源:互联网 阅读 ()
我的主页: 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),然后在程序段中加入条件预编译指令,就可以在实际编译中取舍编译不同的程序部分,这样对于程序的规范性(定义统一的版本符号)和保密性(不同的版本编译不同的程序部分)有很好的作用。
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash