包含文件（Include file）

包含文件可以包含不想出现在主源单元中的任何代码。其典型的用法就是保留常数或编译器指令，这些在一个工程的其他文件中都会用到。

包含文件只是一个用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图标，这样就新建了一个新文件，如下：

4、在新创建的文本文件中输入下面的代码：

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

5、然后选择菜单【File | Save】保存该文件，但一定要用INC扩展名保存此文件，否则会以缺省的TXT扩展名保存它，如下：

6、要使用包含文件，就要在需要使用该包含文件的所有其他单元中使用$I编译器指令，具体代码如下：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
{$I Test.inc}    //此处用到了$I编译指令引用Test.inc包含文件的内容
begin
  Writeln(AStr); //AStr为Test.inc中的常量名
  Readln;
end.

7、按F9编译运行成功后，结果如下：

Caution

必须要保证包含文件中的代码语法正确，否则产生编译器错误。

以上代码在Delphi7中测试通过。