delphi - 记录后我应该如何重新引发 Delphi 异常？

Question

您知道在 Delphi 代码中捕获、记录和重新引发异常的方法吗？一个简单的例子:

procedure TForm3.Button1Click(Sender: TObject);
begin
  try
    raise Exception.Create('Bum');
  except
    on E: Exception do
    begin
      MyHandleException(E);
    end;
  end;
end;

procedure TForm3.MyHandleException(AException: Exception);
begin
  ShowMessage(AException.Message);
  LogThis(AException.Message);  
  // raise AException; - this will access violate
end;

所以我需要在 except block 中重新引发它，但我想知道是否有更好的方法来编写我自己的方法来处理和(在特定条件下)重新引发异常。

Answer 1

如果您只想在某些条件下重新引发异常，请编写

procedure TForm3.Button1Click(Sender: TObject);
begin
  try
    raise Exception.Create('Bum');
  except
    on E: Exception do
    begin
      if MyHandleException(E) then
        raise;
    end;
  end;
end;

function TForm3.MyHandleException(AException: Exception): boolean;
begin
  ShowMessage(AException.Message);
  result := true/false;
end;