Question

delphi7自定义函数的问题

function area(r:real):real;
begin
result:=pi*r*r;
end;//在unit1中定义一个求圆的面积的函数。
怎么在unit2中应用这个函数，跪求具体代码和public区的代码。我在unit1中的设置：
private
{ Private declarations }
public
{
function area(r:real):real;
}
unit2中的调用：
implementation
uses unit1;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
edit1.text:=floattostr(area(strtofloat(edit1.text)));
end;

提示不识别area改成unit1.area也不行啊，急。。。

Answer 1

不知道你的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了这个文件，就可以直接用函数方法了

Answer 2

，不知道