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

在delphi中，也有與c相似的預編譯指令，雖然該類指令只在當前的單個檔案有效（也有可能是筆者未全面了解該類指令的真正用法），但是這一類指令對於進行多版本的製作工作（如從標準版中出學習版），確實有著相當不錯的用途。

一．指令介紹： 1．

define指令：

格式：說明：用於定義乙個在當前單元有效的符號（symbol）。定義了

之後可以使用

if def和ifndef指令來判斷該符號是否存在。

2．undef指令：

格式：說明：用於取消乙個在當前單元已經定義的符號（symbol）。該指令和define

配合使用。

3．ifdef指令：

格式：說明：如果該指令後的名稱已經定義，則編譯該指令後直到或之間的**段。

4．ifndef指令：

格式：說明：如果該指令後的名稱沒有定義，則編譯該指令後直到或之間的**段。

5．ifopt指令：

格式：說明：如果該指令後的開關已經設立，則編譯該指令後直到或之間的**段。

舉例：writeln('編譯時開啟範圍檢查開關');

6．else指令：

格式：說明：通過判斷字首if***的條件式來確定該指令到之間的**段是否應該被編譯或者忽略掉。

7．endif指令：

格式：說明：和if***配合，指明條件預編譯段源**段的結束位置。

二．範例：

編寫例子，通過預先定義不同的編譯符號，進行不用**段的編譯工作。 1．

新建乙個delphi專案，在unit1單元的窗體上新增乙個button按鈕。 2．

編寫程式如下：

unit unit1;

inte***ce

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

public

a : string;

end;

var

form1: tform1;

implementation

//定義行。

procedure tform1.formcreate(sender: tobject);

begin

a := 'other';

a := 'aaa';

a := 'bbb';

end;

procedure tform1.button1click(sender: tobject);

begin

caption := a;

end;

end.

3．編譯後執行，按下button，則看到窗體標題欄顯示「aaa」。程式編譯了a := 』aaa』的語句。 4．

改變定義行的程式段：

當改為

時，再次編譯執行，則看到窗體標題欄顯示「bbb」。程式編譯了a := 』bbb』的語句。

當取消定義行或改為

或其他名稱時，再次編譯執行，則看到窗體標題欄顯示「other」。程式只編譯了a := 』other』的語句。

三．如何快速的製作和更改版本：

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

然而，由於該類預編譯指令只能作用於當前單元，所以不便之處在於不能在乙個公共單元定義一次版本符號，而必須在各單元中定義統一版本符號才行，故此，在更換版本時，需要確定所有的版本符號都已改變，這樣才能保證各版本的正確性，對此，可以使用delphi ide的「find in files…」（多個檔案中查詢字串）的功能，找出所有定義版本符號的檔案和位置，然後依次更改，保證所有位置已經改正。

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

Delphi 中的預編譯指令

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

Delphi中預編譯指令如何使用

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

Delphi 中的預編譯指令

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

Delphi中預編譯指令如何使用

相關推薦