谁知道怎么用free pascal 自制单元？麻烦告诉我。

help me!

2025-03-23 15:36:34

推荐回答（3个）

回答1：

unit debug;

INTERFACE
procedure a(inp:integer);

IMPLEMENTATION
procedure a(inp:integer);
begin
write('Helloworld!')
end;
begin
end.

注意，INTERFACE和IMPLEMENTATION两行不可少，IMPLEMENTATION之后写法跟普通程序一样，但注意IMPLEMENTATION后的每一个函数或者过程，必须拷贝到INTERFACE后面。这些函数或者过程，才可以被别的程序使用到。

另外，如果你用 CP Pascal Editor ，第一行必须是 unit debug ，如果你用 Free Pascal ，则第一行必须为 unit 加上你的文件名，否则会编译报错。
编译完成后会在编译器目录下生成 debug.ppu 或者 [你的文件名].ppu。
最后，在需要用到这个单元的程序里，加上：
uses debug;
begin
a(123);
end.
就可以了。

回答2：

在开始的时候用xxx单元，比如crt
uses crt;就可以了

回答3：

我不知