System.ReleaseExceptionObject

提供: RAD Studio API Documentation
移動先: 案内検索

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;


関連項目