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…”（多个文件中查找字符串）的功能，找出所有定义版本符号的文件和位置，然后依次更改，保证所有位置已经改正。

上一页  [1] [2]