一个更复杂的例子
接下来展示的一个程序例子,被分割到了2个文件。一个工程文件,一个单元文件。你可以将工程文件保存为greeting.dpr,它看起来是这样的:
program greeting;
{$APPTYPE CONSOLE}
uses Unit1;
begin
PrintMessage('Hello World!');
end.
第一行说明了程序名称为greeting,又是一个控制台应用程序。
uses Unit1;这句告诉编译器,这个程序依靠一个命名为Unit1的单元文件。最后这个程序盗用PrintMessage过程,传递给他一个字符串“hello world!”,PrintMessage被定义在Unit1文件中。
这是until的源代码,必须被保存在一个命名为Unit1.pas的文件中。
unit Unit1;
interface
procedure PrintMessage(msg: string);
implementation;
procedure PrintMessage(m...[ 查看全文 ]