System.ReleaseExceptionObject
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;