本文为原创,如需转载,请注明作者和出处,谢谢!
近日使用 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.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的本地版本也好使,有兴趣的读者可以试试。
本文转自银河使者博客园博客,原文链接http://www.cnblogs.com/nokiaguy/archive/2008/06/05/1214510.html如需转载请自行联系原作者
银河使者