在Delphi.net中使用内联代码功能

本文为原创，如需转载，请注明作者和出处，谢谢！

    近日使用Delphi.net做一个程序，发现Delphi竟然也可以象C++一样将代码内联到程序中。在Delphi中使用了{$I ...}编译指令来完成这个工作。
    在Delphi工程目录新建一个abc.txt文件，内容如下：
const
    data : String = '我的数据';
var
    n: integer;

procedure sum(a,b:integer);
begin
   n:=a+b;
end;

    在Delphi的pas文件中加入{$I abc.txt}。这时就可以在加入{$I abc.txt}的pas文件中使用如下的代码了：

showmessage(data);
sum(4, 5);
showmessage(inttostr(n));

实际上，Delphi在编译程序时，将abc.txt文件的内容插入到了放置{$I abc.txt}的地方。我们可以使用这个功能来完成需要有不同编译方案的程序。
    这个功能在Delphi的本地版本也好使，有兴趣的读者可以试试。