Delphi 预编译指令

http://www.cnblogs.com/IceKernel/articles/2312348.html

Delphi作为一个优秀的开发工具，这不仅是由于它开创了“构件（Component）”时代，影响深远；另一个原因是它拥有非常出色的编译器，Borland（Inprise）公司宣称Delphi具有世界上最快的编译器，如果你使用过Visual C++和Delphi你会明显体会到这一点。Delphi快速高效的编译器主要来自Object Pascal的严谨，使用Delphi随时都在和编译器交流，大部份情况下不需要我们干涉编译器的运行，但是有时也需要对编译器进行必要的设置。作为Delphi的使用者，你是否真正了解Delphi的编译环境呢？
**********************************************************************************************

A.1 使用编译设置对话框

编译器的编译指令是用于指定编译器对项目编译过程的动作和行为。可以通过[Project]->[Options]->[Complier]选项页进行设置，绝大部分的编译环境都可以通过这一对话框进行调整，他包含了对代码、语法、调试信息等的设置。

1.代码设置(Code Generation)

Optimization: 代码优化开关

Aligned record fields: 字对齐数据。这个编译指令能够在变量和类型化常量的字节对齐和字对齐之间进行切换，其作用是全局的。

Stack frames: Windows 堆栈帧。其作用域是局部的，他使编译器成为远端过程和函数生成特定的开头和结尾代码。这个指令用于Windows 3.0的实模式，对所有Delphi应用程序他应该是关闭的。

Pentium-safe FDIV: Pentium安全FDIV检查。此指令能够在Pentium处理器中指定编译器是否创建能够检测和使用有缺陷的浮点除法指令的代码。

2.运行期错误(Runtime Errors)

Range Checking: 范围检查。这个指令的作用范围是局部的，用于控制范围检验代码的生成。

I/O Checking: I/O检查。这个指令的作用域为局部，用来生成对一个文件的输入和输出过程和调用结果进行检查的代码。一般应该使其功能打开。

Overflos Checking: 溢出检查。其作用是生成对算术溢出检查的代码。

3.语法设置(Syntax Optings)

Strict Var- strings: 静态变量串开关。用来控制对以变量参数形式传递的串的类型检查。

Comlete Boolean Eval: 完全布尔表达量判定。用于执行强制的完整表达式判定。完全布尔量判定，有可能导致系统崩溃，所以一般不使用他。

Extended Syntax: 扩展语法开关。他能允许或禁止Delphi的扩展语法。

Typed @ Operator: 类型化的@运算符检查。应用于局部的变量引用上，控制@运算符返回的指针值类型。

Open Parameters: 开放参数开关。用于控制使用String关键字声明的变量参数。开放参数允许将大小不一的串变量传递到同一个过程或函数中，一般在汇编中会使用到。

Huge Strings: 字符串类型开关。用于控制Ansistring和Shortstring类型的切换。当打开时符合Ansistring，关闭时符合Shortstring。

Assignable Typed Constants: 可分配类型常量。用于向下与Delphi 1.0兼容。

4.调试(Debugging)

Debug Information: 调试信息开关。用于设置是否把调试信息写入以编译的单元文件(.dcu)。

Local Symbols: 局部符号开关。允许或禁止局部符号信息的创建。

Reference Info/Definitions Only: 符号信息开关。用于允许或禁止由Delohi的对象浏览器使用的符号引用信息的生成。

Assertions: 用于控制局部代码的属性。

Use Debug DCUs: 使用或禁止VCL的DCU文件调试。

5.信息(Messages)

Show Hints: 显示暗示。

Show Warnings: 显示警告。

**********************************************************************************************

A.2 使用编译指令

除了使用编译设置对话框对编译器进行设置外，还可以通过编译指令来对编译器进行设置。
对于局部的编译器设置，只有使用编译指令来完成。

对于开关编译指令，通过在编译指令后加入指示开关状态的加号和减号来控制编译器。例如：

{$B+} : 打开完全布尔量检查。
{$Q-} : 关闭溢出检查。

通常，编译指令的作用域是在编译指令后的代码部分，而对于全程的编译指令应该防在单元接口部分的开头。
编译设置对话框的设置都有与之对应的编译指令用于在代码中对编译器进行设置,如下表所示。

设置项 编译指令

Optimizations {$O}

Aligned record fields {$A}

Stack frames {$W}

Pentium-safe FDIV {$U}

Range Checking {$R}

I/O Checking {$I}

Overflow Checking {$Q}

Strict Var-strings {$V}

Comlete Boolean Eval {$B}

Extended Syntax {$X}

Typed @ Operator {$T}

Open Parameters {$P}

Huge Strings {$H}

Assertions typed constants {$J}

Debug information {$D}

Local sysnbols {$L}

在这些编译指令以外还有一些非常有用的编译指令。
$R Filename : 这个编译指令是最为常用的编译指令，他是资源文件编译指令，用于指定连接到执行文件和库的资源文件，例如在工程文件(.dpr)中会有{$R *.RES}的编译指令，表明把后缀为 .RES的与工程文件同名的资源文件连接入执行文件，也可以指定一个资源文件，资源文件的使用对于编写Windows程序来说是很重要的基础。

$I Filename :这个编译指令功能类似于C语言的#Include , 用于指定编译时包括的文件。

**********************************************************************************************

A.3 使用条件编译指令

条件编译指令是非常重要的编译指令，他控制着在不同条件下（例如，不同的操作系统）产生不同的代码。条件编译指令是包含在
注释括号之内的，如下表所示。

条件编译指令 含义

$DEFINE 用于定义一个条件符号，一旦定义，条件符号就为真

$ELSE 与$IFDEF配合使用，如果$IFDEF条件为假，则只对源文件$ELSE后一小部分进行编译

$ENDIF 结束一个以$IF开始的条件段

$IFDEF 对条件符号进行判断，为真则编译源文件

$IFNDEF 对条件符号进行判断，为假则编译源文件

$IFOPT 根据编译开关状态，对源文件编译

$UNDEF 撤消以前的条件符号定义

这些条件编译指令是非常有用的。例如，可以通过开关的状态来控制编译：

{IFOPT R+}
showmessage('Compiled with range-checking');
{$ENDIF}

也可以通过定义条件符号来控制编译：

{$Define s}
……
{$ifdef s}
showmessage('yes');
{$else}
showmessage('no');
{$endif}

他的编译结果是显示'yes'，但是如果省去{$Define s}则显示'no'。
在Delphi中已经预定义了一些关键的条件符号，如下表所示。

条件符号 含义

VERxx 编译器版本，XX表示版本，例如：Delphi 1.0 的编译器版本为80、Delphi 5.0 的编译器版本为130

WIN32 是否WIN32的运行环境(Windows 95.98/NT/2000)

CPU386 是否Intel386以上的处理器

CONSOLE 是否控制台程序

二．范例：

编写例子，通过预先定义不同的编译符号，进行不用代码段的编译工作。

1．新建一个Delphi项目，在Unit1单元的窗体上添加一个Button按钮。
2．编写程式如下：
unit Unit1;

interface

uses

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

Delphi的编译器指令除了以上的指令外还有一些，不过最为常用的指令已经全部介绍完了。对于普通的程序，Delphi是不需要编程者去添加编译器指令的，Delphi已经自动完成，但是要得到高品质的应用程序或者有特殊的要求的程序就必须熟悉Delphi的编译指令。Delphi不仅有最快的编译器而且编译器的功能也非常强大。