第4部分 编译文件（第9页）
一个更复杂的例子
接下来展示的一个程序例子，被分割到了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(msg: string);
begin
writeln(msg);
end;
end.
unit1 定义了一个被称为printmessage的过程。输入一个字符串的变量，并显示这个变量到标准输出窗口。（在delphi中，不返回值的程序被程为过程。又返回值的程序被称为函数。）注意，printmessage在unit1
中被定义了2次。第一次定义，在关键词interface之后，使printmessage在用到unit1的其他模块中有效。第2次定义，在关键词implementation之后，实现了printmessage的定义。
你现在从命令行中输入并编译greeting
dcc32 greeting
去产生一个win32的可执行文件，或则
dccil greeting
去产生一个.net下的可执行文件。
在命令行中不需要包含unit1。当编译器产生greeting.dpr，就可以自动的找到greeting程序所依靠的单元文件。结果和第一个例子相同：打印消息hello world!
接下来展示的一个程序例子，被分割到了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(msg: string);
begin
writeln(msg);
end;
end.
unit1 定义了一个被称为printmessage的过程。输入一个字符串的变量，并显示这个变量到标准输出窗口。（在delphi中，不返回值的程序被程为过程。又返回值的程序被称为函数。）注意，printmessage在unit1
中被定义了2次。第一次定义，在关键词interface之后，使printmessage在用到unit1的其他模块中有效。第2次定义，在关键词implementation之后，实现了printmessage的定义。
你现在从命令行中输入并编译greeting
dcc32 greeting
去产生一个win32的可执行文件，或则
dccil greeting
去产生一个.net下的可执行文件。
在命令行中不需要包含unit1。当编译器产生greeting.dpr，就可以自动的找到greeting程序所依靠的单元文件。结果和第一个例子相同：打印消息hello world!
posted on 2004-12-
