System.ReleaseExceptionObject

From RAD Studio API Documentation
Jump to: navigation, search

Delphi

procedure ReleaseExceptionObject;

C++

extern DELPHI_PACKAGE void __fastcall ReleaseExceptionObject(void);

Properties

Type Visibility Source Unit Parent
procedure
function
public
System.pas
System.hpp
System System

Description

This procedure is obsolete and is only kept for backward compatibility.

Please don't use this function in new applications for the current platforms.


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;


See Also