delphi - 是否有 Exit 方法可以退出嵌套过程及其所有者过程？

Question

是否有一种方法可以从嵌套过程内部调用 Exit，该方法也将退出所有者/父过程？

procedure OwnerProc;

    procedure NestedProc;
    begin
      // Do some code here

      EXIT_ALL; {Call a method which will exit NestedProc and OwnerProc}
    end;

begin
  NestedProc;
end;

Answer 1

Is there a method one could call to Exit from inside a nested procedure which will also exit the owner/parent procedure?

不，没有。

您可以引发异常，并在外部函数中捕获它。但我个人认为这相当丑陋。也许更干净的是从内部函数返回一个 bool 值，然后 exit如果内部函数返回 False .