是否有Exit方法退出嵌套过程及其所有者过程?

Blu*_*erk 6 delphi control-flow

是否有一个方法可以从嵌套过程内部调用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;
Run Code Online (Sandbox Code Playgroud)

Dav*_*nan 12

是否有一个方法可以从嵌套过程内部调用Exit,它也将退出所有者/父过程?

不,那里没有.

您可以引发异常,并在外部函数中捕获它.但我个人认为这相当丑陋.也许更清楚的是从内部函数返回一个布尔值,然后exit返回内部函数False.