调用之前声明的另一个过程中的一个过程

Question

我遇到了一种情况：

procedure Compile();
begin
//stuff
CompileBatch();
end;
procedure CompileBatch();
begin
//stuff
end;

但这显然不起作用，因为在Compile中还没有找到标识符"CompileBatch"。有什么解决办法吗？或者我必须重写Compile中的所有CompileBatch代码吗？我正在使用Free Pascal。

Answer 1

您可以通过声明CompileBatchforward来实现这一点，如下所示：

procedure CompileBatch(); forward;
procedure Compile();
begin
//stuff
CompileBatch();
end;
procedure CompileBatch();
begin
//stuff
end;