System.ReleaseExceptionObject
Delphi
procedure ReleaseExceptionObject;
C++
extern DELPHI_PACKAGE void __fastcall ReleaseExceptionObject(void);
プロパティ
種類 | 可視性 | ソース | ユニット | 親 |
---|---|---|---|---|
procedure function |
public | System.pas System.hpp |
System | System |
説明
このプロシージャは廃止予定で、後方互換性を維持するためにのみ保持されています。
現在のプラットフォームの新しいアプリケーションでは、この関数を使用しないでください。
var
EX : Exception
procedure TForm17.Button1Click(Sender: TObject);
begin
ReportMemoryLeaksOnShutdown := True;
try
raise EProgrammerNotFound.Create('nope');
except
EX := AcquireExceptionObject() as Exception;
ReleaseExceptionObject(); // No meaning on the current compilers
end;
Button1.Caption := EX.Message;
Ex.Free; // The application have to free the exception object. *manually*
end;