编译开关

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」。