我用Delphi一年[论使用Inc文件的一点心得]
王集鹄 2001-04-23 06:46:00 //Delphi可以象C一样用Inc文件
//用编译指令{$I FileName}
///////Begin 比如No.1
//File1.txt内容为
const
cText = 'Hello Worlds!';
//Unit1.pas部分内容为
//....
procedure TForm1.Button1Click(Sender: TObject);
{$I File1.txt}
begin
ShowMessage(cText);
end;
end.
//....
//这个例子很普通
///////End 比如No.1
///////Begin 比如No.2
//File1.txt内容为
const
cText = 'Hello Worlds!';
begin
ShowMessage(cText);
end;
//Unit1.pas部分内容为
//....
procedure TForm1.Button1Click(Sender: TObject);
{$I File1.txt}
end.
//....
//这可没有错
///////End 比如No.2
///////Begin 比如No.3
//File1.txt内容为
cText);ShowMessage(
//Unit1.pas部分内容为
//....
procedure TForm1.Button1Click(Sender: TObject);
const
cText = 'Hello Worlds!';
begin
ShowMessage({$I File1.txt}{$I File1.txt}cText);
end;
end.
//....
//你能想得出她运行的结果吗?
///////End 比如No.3
//其实Delphi Inc就象代码块一样
//但要注意这样是错的 I := 'a {$I File1.txt}'
//zswang(c)20010423
//谢谢关注