unit 单元名;
interface
接口部分
const
type
var
implementation
实现部分
end.
在接口部分定义单元中的函数与过程,
在实现部分写函数与过程的具体代码。
存为单元名.pas,就可以在其他程序中调用了。
新建程序,命名为general.pas,并输入以下代码:
unit general;
interface
function max(num1,num2:integer):integer;
implementation
function max(num1,num2:integer):integer;
begin
if num1>num2 then max:=num1
else max:=num2;
end;
end.
再新建一个程序,输入以下代码:
uses general,crt;
begin
writeln(max(3,5));
readkey;
end.
你就会在屏幕上发现5了,然后按任意键退出。
不是,你把文件放在工作目录里。
如果你是通过快捷方式启动Free Pascal的,在快捷方式上右键,点程序选项卡,里面有个工作目录。如果你是直接打开的程序,工作目录就是安装文件夹中的bin\go32v2
可否说的稍微详细一些 是哪里的 单元?