Question

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

我在单元的uses下面写了个function aa:string;(例),我在我在function Tform1.bb:string中怎么调用aa呢?aa是不是class中;就是不在
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
这里面!请大家指点思路!

Answer 1

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

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

追问

我在bb中不能调用呢？是不是哪里出问题了？

Answer 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;

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

追问

我不是这意思！我意思是在type 下的类里定义的事件等怎么引用不在它类里定义的函数或过程！

我不是这意思！我意思是在type 下的类里定义的事件等怎么引用不在它类里定义的函数或过程！

Answer 3

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

追问

我不是这意思！我意思是在type 下的类里定义的事件等怎么引用不在它类里定义的函数或过程！