System.ReleaseExceptionObject

• Übergeordnet: System

Delphi

procedure ReleaseExceptionObject;

C++

extern DELPHI_PACKAGE void __fastcall ReleaseExceptionObject(void);

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	System.pas System.hpp	System	System

Beschreibung

Diese Prozedur ist veraltet und wird nur aus Gründen der Abwärtskompatibilität beibehalten.

Verwenden Sie diese Funktion nicht in neuen Anwendungen für die aktuellen Plattformen.

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;

Siehe auch

• AcquireExceptionObject

• ExceptObject