你定义的function aa:string,叫做单元级函数,在本单元中是完全可见的,就是说,你的function Tform1.bb:string直接就可以调用aa,没有问题。
其他单元的代码,也可以调用aa,只要在uses中加上aa所在的单元即可。
如楼上所说的都是对的。
举个例子
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;
不过第一种方式更符合嵌套的意义吧,嵌套函数的好处在于,子函数可以直接使用母函数的变量,否则直接声明还更容易阅读。
语文差,看不懂你表达什么