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

Question

我有情况：

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

procedure CompileBatch();
begin
  //stuff
end;

但是这显然不起作用，因为在Compile中尚未找到标识符“ CompileBatch”。有什么解决方法，还是我必须重写Compile中的所有CompileBatch代码？我正在使用Free Pascal。

Answer 1

您可以通过这样声明您的CompileBatch forward来做到这一点：

procedure CompileBatch(); forward;

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

procedure CompileBatch();
begin
  //stuff
end;