Delphi Object Pascal 編譯器的編譯指令之十二({$I檔案名稱})(本人會(huì)連續(xù)刊登) (2001年3月17日) 

網(wǎng)友更新  分類:數(shù)據(jù)庫(kù)   作者:erp2  推薦:erp2   閱讀次數(shù):180  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
作者﹕黃智
郵件﹕erp2@263.net
日期﹕2001-03-17
{$I檔案名稱} 含入檔案
以Delphi IDE修改Compiler directives的確相當(dāng)方便, 但往往我們?nèi)匀恍枰獙ompiler directives直接加入程式中, 可是當(dāng)我們這樣作之後不用多久, 就會(huì)發(fā)現(xiàn)要一一重新修改各個(gè)單元中的這些Compiler directives時(shí), 實(shí)在是既無(wú)聊而又容易出錯(cuò)的工作。這時(shí)候, 假如您一開(kāi)始就採(cǎi)用{$I檔案名稱}, 整件事就會(huì)變得很簡(jiǎn)單。怎麼做呢? 讓我用一個(gè)例子告訴您 --
? 先用一般的文書編輯器建好一個(gè)MySet.inc的普通文字檔案, 內(nèi)容為:
{$H+}
{$DEFINE _Proversion}
? 在我們的程式中, 加入一列{$I MySet.inc}, 例如:
unit Unit1;
{$I MySet.inc}

interface
…
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF _ProVersion}
ShowMessage('專業(yè)版');
{$Else}
ShowMessage('只有專業(yè)版才有此功能');
{$ENDIF}
end;
…
這是副程式的觀念嘛! 沒(méi)錯(cuò), 就是這麼簡(jiǎn)單而已, 以後如果有任何變化, 修改MySet.INC, 然後Project/Buile All即可, 實(shí)在是夠簡(jiǎn)單的了。
基本動(dòng)作會(huì)了之後, 讓我告訴你多一點(diǎn)有關(guān){$I檔案名稱}的事。
? 一旦應(yīng)用了{(lán)$I檔案名稱}, 幾乎等於Compiler在編譯時(shí), 讓Compiler將這個(gè)檔案的內(nèi)容貼進(jìn)我們的程式中的那個(gè)位置。
? 如果沒(méi)有註明副檔名, Delphi預(yù)設(shè)這個(gè)檔案是.PAS。
? 如果在專案的目錄中找不到這個(gè)檔案的話, Delphi會(huì)陸續(xù)搜尋Tools/Options/Library中的Library Path中的目錄。
另外, 當(dāng)您寫作了一個(gè)DLL, 使用者在使用其中的函數(shù)前必須宣告過(guò), 如果能夠一併提供這些函數(shù)的宣告檔, 使用者只要一行{$I xxx}即可, 是不是很方便呢?