Delphi 是否有退出嵌套过程及其所有者过程的方法？

是否有一个方法可以调用以从嵌套过程中退出，该嵌套过程也将退出所有者/父过程

procedure OwnerProc;

    procedure NestedProc;
    begin
      // Do some code here

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

begin
  NestedProc;
end;

是否有一个方法可以调用以从嵌套过程中退出，该嵌套过程也将退出所有者/父过程

procedure OwnerProc;

    procedure NestedProc;
    begin
      // Do some code here

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

begin
  NestedProc;
end;

不，没有

---

您可以引发异常，并在外部函数中捕获它。但我个人认为这相当丑陋。也许更简洁的方法是从内部函数返回一个布尔值，然后如果内部函数返回

False

您想了解异常，则退出

exit

。或者简单地将其从一个过程更改为一个函数并返回一个布尔值。然后，您可以检查结果是否为false，并退出主程序如果我按字面意思执行exit_ALL，a

Halt将完成此工作；）-警告：仅在特殊情况下使用。@mjn:-）我想在Delphi中“All”必须被“ThisOneAndParent”替换。我们通过调用方法Abort来使用静默异常EAbort。啊，比我快：-）谢谢David。我确实使用了布尔结果的方法，但希望有一个现有的方法来执行ExitAll。