程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 關於Delphi中預編譯指令的使用方法

關於Delphi中預編譯指令的使用方法

編輯:Delphi
在Delphi中,也有與C相似的預編譯指令,雖然該類指令只在當前的單個文件有效(也有可能是筆者未全面了解該類指令的真正用法),但是這一類指令對於進行多版本的制作工作(如從標准版中出學習版),確實有著相當不錯的用途。

 <?XML:namespace prefix = o ns = "urn:schemas-microsoft-com:office:Office" />

一.指令介紹:

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}

 

6.  ELSE指令:

格式:{$ELSE}

說明:通過判斷前綴Ifxxx的條件式來確定該指令到{$ENDIF}之間的代碼段是否應該被編譯或者忽略掉。

 

7.  ENDIF指令:

格式:{$ENDIF}

說明:和Ifxxx配合,指明條件預編譯段源代碼段的結束位置。

 

二.范例:

編寫例子,通過預先定義不同的編譯符號,進行不用代碼段的編譯工作。

1.  新建一個Delphi項目,在Unit1單元的窗體上添加一個Button按鈕。

2.  編寫程序如下:

   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.

{注:粗體字部分為輸入的代碼}

3.  編譯後運行,按下Button,則看到窗體標題欄顯示“AAA”。程序編譯了a := ’AAA’的語句。

4.  改變定義行的程序段:

當改為

  {$DEFINE BBB}

時,再次編譯運行,則看到窗體標題欄顯示“BBB”。程序編譯了a := ’BBB’的語句。

當取消定義行或改為

  {$DEFINE NOTHING}

或其他名稱時,再次編譯運行,則看到窗體標題欄顯示“Other”。程序只編譯了a := ’Other’的語句。

 

三.如何快速的制作和更改版本:

使用預編譯指令,在制作同一個程序的多個版本時,只需找出各版本中有區別的單元,依次定義統一的版本符號(Symbol),然後在程序段中加入條件預編譯指令,就可以在實際編譯中取捨編譯不同的程序部分,這樣對於程序的規范性(定義統一的版本符號)和保密性(不同的版本編譯不同的程序部分)有很好的作用。

然而,由於該類預編譯指令只能作用於當前單元,所以不便之處在於不能在一個公共單元定義一次版本符號,而必須在各單元中定義統一版本符號才行,故此,在更換版本時,需要確定所有的版本符號都已改變,這樣才能保證各版本的正確性,對此,可以使用Delphi IDE的“Find in Files…”(多個文件中查找字符串)的功能,找出所有定義版本符號的文件和位置,然後依次更改,保證所有位置已經改正。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved