Lazarus前向引用

过程和函数使用时,正常应该先定义,后引用,但也可以先引用,后定义,只是需要做一个前向引用,类似声明:
procedure Later (参数列表); forward;

procedure Sooner (参数列表);
begin
...
Later (参数列表);
end;
...
procedure Later;
begin
...
Sooner (参数列表);
end;
//later先声明,所以later可以sooner后面

program q;
procedure a;forward;
procedure b;
begin
writeln('B调取A:');
a;
end;
procedure a;
begin
writeln('A过程.');
end;
begin
b;
end.
//a在b前面声明,主程序先调用b,b在主程序前,所以不用前向引用,b调用a,a在b后面,所以需要前向引用

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注