一.指令介紹:
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…”(多個文件中查找字符串)的功能,找出所有定義版本符號的文件和位置,然後依次更改,保證所有位置已經改正。
一般是這樣的:
{$HINTS OFF} <----OFF表示關閉
procedure Test;
var
I: Integer;
begin
end;
{$HINTS ON} <----ON表示打開
也有用:
{$I+} <----表示打開
{$I-} <----表示關閉
這個編譯指令是對I/O的檢查。
更具體的請查閱相關資料。
{$HINTS ON} 或是 {$HINTS OFF} <----是否給出提示
{$WARNINGS ON} 或是 {$WARNINGS OFF} <----是否給出警告
報錯說明你的代碼不能正確編譯通過,請檢查你得代碼。如果隨便輸入代碼DELPHI就能編譯通過,那還了得。