delphi – 为什么在重新提升时异常对象的更改丢失？

var a: Integer;
begin
  try
    a := 0;
    Label1.Caption := IntToStr(100 div a);
  except
    on e: Exception do
    begin
      e.Message := 'Extra Info Plus the original : ' + e.Message;
      raise;
    end;
  end;
end;

好打我吧这看起来很错，我不得不自己尝试，你是绝对正确的！我已经把它缩小到这样的事实，这是由操作系统本身而不是由Delphi生成的一个操作系统异常(除以零)。如果您自己尝试并引发EIntError，您将获得预期的行为，而不是您在上面看到的内容。请注意，只要您自己提出异常，就会发生预期的行为。

更新：在System.pas单元中，当重新提出异常时，会有以下代码调用：

{ Destroy any objects created for non-delphi exceptions }

MOV     EAX,[EDX].TRaiseFrame.ExceptionRecord
AND     [EAX].TExceptionRecord.ExceptionFlags,NOT cUnwinding
CMP     [EAX].TExceptionRecord.ExceptionCode,cDelphiException
JE      @@delphiException
MOV     EAX,[EDX].TRaiseFrame.ExceptObject
CALL    TObject.Free
CALL    NotifyReRaise

因此，如果异常不是Delphi异常(在这种情况下是一个OS异常)，那么(修改的)“Delphi”异常将被释放，原始异常被重新引发，从而抛出对异常所做的任何更改。案件关闭！

更新2：(不能帮助自己)。您可以使用以下代码重现此内容：

type
  TThreadNameInfo = record
    InfoType: LongWord;  // must be $00001000
    NamePtr: PAnsiChar;  // pointer to message (in user address space)
    ThreadId: LongWord;  // thread id ($ffffffff indicates caller thread)
    Flags: LongWord;     // reserved for future use,must be zero
  end;

var
  lThreadNameInfo: TThreadNameInfo;

  with lThreadNameInfo do begin
    InfoType := $00001000;
    NamePtr := PAnsiChar(AnsiString('Division by zero'));
    ThreadId := $ffffffff;
    Flags := $00000000;
  end;
  RaiseException($C0000094,sizeof(lThreadNameInfo) div sizeof(LongWord),@lThreadNameInfo);

玩的开心！