不知道你的unit1里是怎么写的,但是如果function area(r:real):real;是公共函数,倒是建议你单独建一个专门存放公共函数的unit 文件比如:
---------------------------------------------------------------
unit FunctionsUnit;
interface
//uses其他文件或模块
uses
//自定义公共函数声明
function area(r:real):real;
implementation
//函数实现
function area(r:real):real;
begin
result:=pi*r*r;
end;
end.
-------------------------------------------------------------------------------------------
你在需要调用的这个函数文件里只要先uses了这个文件,就可以直接用函数方法了
,不知道