System.ReleaseExceptionObject

• Aller au parent : System

Delphi

procedure ReleaseExceptionObject;

C++

extern DELPHI_PACKAGE void __fastcall ReleaseExceptionObject(void);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	System.pas System.hpp	System	System

Description

Cette procédure obsolète est conservée dans un souci de compatibilité.

Veuillez ne pas utiliser cette fonction dans de nouvelles applications destinées aux plates-formes actuelles.

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;

Voir aussi

• AcquireExceptionObject

• ExceptObject