delphi的BUG吗？

Question

我发现DELPHI有个毛病：比如：procedure a1;
begin
a2;
shoemessage('a1');
end;procedure a2;
begin
a1;
showmessage('a2');
end;上面只有在procedure a2里 调用a1，可以通过编译！而在a1里调用a2为什么不能通过呢？请问怎么能让他通过！

Answer 1

没有使用 forward 定义，只是最早的 pascal 程序中才会有，如果写在 class 中是不存在这个问题的。

Answer 2

不过看上去这里是死循环，如果调用的话。
procedure a1;
begin
a2;
// shoemessage('a1'); // 这里应该改成
  ShowMessage('a1');
end;

Answer 3

forward一下吧.不过,好像是死WHILE吧.
不明白楼主用意./