delphi 编译开关

1. 先用一般的文书编辑器建好一个 MySet.inc 的普通文本文件 , 内容为 :

{$H+}{$DEFINE _Proversion}

2.在我们的程序中 , 加入一列 {$I MySet.inc}, 例如 :

unit Unit1;

{$I MySet.inc}

interface

…

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

{$IFDEF _ProVersion}

ShowMessage(' 专业版 ');

{$Else}

ShowMessage(' 只有专业版才有此功能 ');

{$ENDIF}

end;

…

这是子程序的观念嘛 ! 没错 , 就是这么简单而已 , 以后如果有任何变化 , 修改 MySet.INC, 然后 Project/Buile All 即可 , 实在

是够简单的了。基本动作会了之后 , 让我告诉你多一点有关 {$I 文件名称 } 的事。

3.一旦应用了 {$I 文件名称 },几乎等于 Compiler 在编译时,让 Compiler 将这个档案的内容贴进我们的程序中的那个位置。

   如果没有注明扩展名 , Delphi 预设这个档案是 .PAS 。

    如果在项目的目录中找不到这个档案的话 , Delphi 会陆续搜寻 Tools/Options/Library 中的 Library Path 中的目录。

另外 , 当您写作了一个 DLL, 使用者在使用其中的函数前必须宣告过 , 如果能够一并提供这些函数的宣告文件 , 使用者只要一行 {$I

xxx}即可 , 是不是很方便呢 ?

其实 {$J+} 时还有一个妙用 , 那就是宣告出类似 C 语言 static 的变量 , 换句话说 ,产生了一个与 Application 相同生命周期的变量。

在这种情形下 , 变量只在第一次使用时才会建立 , 函数或程序结束时 , 该变量也不会消灭 , 下一次再呼叫到这个函数或程序时 , 我

们仍然可以参考到上次执行结束时的值。让我们试一下这个例子 :

{$J+}

procedure TForm1.Button1Click(Sender: TObject);

const

i: integer = 0;

begin

ShowMessage(IntToStr(i));

Inc(i);

ShowMessage(IntToStr(i));

end;

第一次执行时, 我们分别会看到「0」「1」, 再点一次这个按钮时, 看到的将是「1」「2」。