回帖：版主是抄的网上的
网上的掉了一点，所以版主也掉了一点。
使用TP时编单元时可以这样
unit a;
interface
function f(a:integer):integer;
implementation
function f;
begin
...
end.
但FreePascal在IMPLEMENTATION段中
不能省略形式参数表！
这一点很讨厌！