Delphi中使用inc文件

本页内容为：Delphi中使用inc文件，该文章本站转载自网络，如有侵权请告之，我们将会及时将其删除，其正文内容如下：

    晚上看DUnit的源代码，在About窗口显示单元的代码中，发现有一段使用inc文件的代码(以前从未见过有这样的用法)，部分代码摘录如下:
unit DunitAbout;  // About窗口显示单元
……
implementation
{$R *.DFM}
const
{$include versioninfo.inc }
……
procedure TDunitAboutBox.FormCreate(Sender: TObject);
begin
  IdentMemo.Lines[2] := Format('v %s', [ReleaseStr]);
end;

// 下面是versioninfo.inc文件的内容
ReleaseNo : array[1..3] of Integer
              = (7,2,1);
ReleaseStr     = '7.2.1';
ReleaseName    = '';
ReleaseWhen : array[1..6] of Integer
              = (2004,06,01,13,27,14);
ReleaseYear    = 2004;
ReleaseMonth   = 06;
ReleaseDay     = 01;
ReleaseHour    = 13;
ReleaseMinute  = 27;
    About窗口显示时，显示的版本就是ReleaseStr字符串的值。