今天图老师小编给大家展示的是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/)
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/)
{$DEFINE BBB}
{$DEFINE NOTHING}
a := 'Other'的语句。
{$HINTS OFF} ----OFF表示关闭
procedure Test;
var
I: Integer;
begin
end;
{$HINTS ON} ----ON表示打开
{$I+} ----表示打开
{$I-} ----表示关闭
{$HINTS ON} 或是 {$HINTS OFF} ----是否给出提示
{$WARNINGS ON} 或是 {$WARNINGS OFF} ----是否给出警告
来源:http://www.tulaoshi.com/n/20160219/1624490.html
看过《Delphi中预编译指令如何使用》的人还看了以下文章 更多>>