使用Inc檔案

Delphi可以像C一樣用Inc文件
用編譯指令 {$I FileName}

如：
File1.inc 內容為
const
CText = 'Hello World!';

Unit1.pas
//.............
procedure TForm1.Button1Click(Sender: TObject);
{$I File1.inc} //答案就在這一行
Begin
  ShowMessage(CText);
end;
//.............