包含檔案（Include file）

weixin_34054866發表於2011-12-20

包含檔案可以包含不想出現在主源單元中的任何程式碼。其典型的用法就是保留常數或編譯器指令，這些在一個工程的其他檔案中都會用到。

包含檔案只是一個用INC副檔名的文字檔案。INC副檔名也不是必須的，僅僅是一個慣例。

下面我們將通過一個Hello, World演示，來說明包含檔案的使用。

1、我們來新建一個Console Application，通過選單【File | New | Others…】開啟New Items對話方塊，然後選擇Console Application。

2、建立好預設的Console Application後，選擇【File | Save All】儲存該工程Project2到一個獨立的目錄（比如C:\INCTest）。

3、下面開始新建一個包含檔案，選擇選單【File | New | Others…】開啟New Items對話方塊，然後選擇Text圖示，這樣就新建了一個新檔案，如下：

0033

4、在新建立的文字檔案中輸入下面的程式碼：

const
  AStr = 'Hello, World'; { 定義常量字串}

5、然後選擇選單【File | Save】儲存該檔案，但一定要用INC副檔名儲存此檔案，否則會以預設的TXT副檔名儲存它，如下：

0034

6、要使用包含檔案，就要在需要使用該包含檔案的所有其他單元中使用$I編譯器指令，具體程式碼如下：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
{$I Test.inc}    //此處用到了$I編譯指令引用Test.inc包含檔案的內容
begin
  Writeln(AStr); //AStr為Test.inc中的常量名
  Readln;
end.

7、按F9編譯執行成功後，結果如下：

0035

Caution

必須要保證包含檔案中的程式碼語法正確，否則產生編譯器錯誤。

以上程式碼在Delphi7中測試通過。

相關文章