delphi - 跳转到finally而不退出函数/过程

Question

我有以下情况:

procedure Test;
begin
 repeat
  TryAgain := FALSE;
  try
   // Code
   // Code
   if this and that then begin
    TryAgain := TRUE;
    exit;
   end;
  finally
   // CleanUpCode
  end;
 until TryAgain = FALSE;
end;

如何在不调用 exit 的情况下跳转到最后部分，以便它也自动调用 repeat 页脚？

Answer 1

使用Continue继续下一次迭代。 try..finally block 的 finally 部分中的代码被设计为始终执行，因此即使您强制跳到下一个迭代:

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
    TryAgain := False;
    try
      if SomeCondition then
      begin
        TryAgain := True;
        // this will proceed the finally block and go back to repeat
        Continue;
      end;
      // code which would be here will execute only if SomeCondition
      // is False, because calling Continue will skip it
    finally
      // code in this block is executed always
    end;
  until
    not TryAgain;
end;

但是您可以这样简单地编写相同的逻辑:

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
    TryAgain := False;
    try
      if SomeCondition then
      begin
        TryAgain := True;
      end
      else
      begin
        // code which would be here will execute only if SomeCondition
        // is False
      end;
    finally
      // code in this block is executed always
    end;
  until
    not TryAgain;
end;