delphi中的函数及过程引用问题

2025-03-06 22:27:25
推荐回答(3个)
回答1:

你定义的function aa:string,叫做单元级函数,在本单元中是完全可见的,就是说,你的function Tform1.bb:string直接就可以调用aa,没有问题。

其他单元的代码,也可以调用aa,只要在uses中加上aa所在的单元即可。

回答2:

如楼上所说的都是对的。

举个例子
1。
procedure Mainprocedure();
var
Mytime:SYSTEMTIME;
function Childprocedure(): string;
begin
Result := '今天是星期'+IntToStr(MyTime.wDayOfWeek);
end;
begin
GetLocalTime(Mytime);
Showmessage(Childprocedure);
end;
2。

procedure Mainprocedure();
function Childprocedure(Mytime:SYSTEMTIME): string;
begin
Result := '今天是星期'+IntToStr(MyTime.wDayOfWeek);
end;
var
Mytime:SYSTEMTIME;
begin
GetLocalTime(Mytime);
Showmessage(Childprocedure(Mytime));
end;

不过第一种方式更符合嵌套的意义吧,嵌套函数的好处在于,子函数可以直接使用母函数的变量,否则直接声明还更容易阅读。

回答3:

语文差,看不懂你表达什么