Section courante

A propos

Section administrative du site

ACQUIREEXCEPTIONOBJECT

Acquérir un objet d'exception
Free Pascal System

Syntaxe

Function AcquireExceptionObject: Pointer;

Description

Cette fonction permet de demander l'adresse de l'objet d'exception courant. Il augmente le nombre de références de l'objet d'exception, il ne sera donc pas libéré. L'appel de cette méthode n'est valide que dans un bloc d'exception «Except».

Remarques

Exemple

Voici un exemple montrant l'utilisation de la fonction «AcquireExceptionObject» :

  1. Program AcquireExceptionObjectSamples;
  2.  
  3. {$MODE Delphi}
  4.  
  5. Uses SysUtils;
  6.  
  7. Var
  8.  X:Pointer;
  9.  L:Record
  10.   Seg,Off:Word;
  11.  End Absolute X;
  12.  I:Integer;
  13.  
  14. BEGIN
  15.  For I:=-10 to 3 do Begin
  16.   Try
  17.    WriteLn('I = ',I,', 1/I = ',1/I:0:2);
  18.   Except
  19.    On EDivByZero do Begin
  20.     X:=AcquireExceptionObject;
  21.     WriteLn('Division par 0, Seg = ',IntToHex(L.Seg,4),'h, Ofs = ',IntToHex(L.Off,4),'h');
  22.    End;
  23.   End;
  24.  End;
  25. END.

on obtiendra le résultat suivant :

I = -10, 1/I = -0.10
I = -9, 1/I = -0.11
I = -8, 1/I = -0.13
I = -7, 1/I = -0.14
I = -6, 1/I = -0.17
I = -5, 1/I = -0.20
I = -4, 1/I = -0.25
I = -3, 1/I = -0.33
I = -2, 1/I = -0.50
I = -1, 1/I = -1.00
I = 0, 1/I = Division par 0, Seg = 5768h, Ofs = 0005h
I = 1, 1/I = 1.00
I = 2, 1/I = 0.50
I = 3, 1/I = 0.33

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - «ReleaseExceptionObject»

Dernière mise à jour : Samedi, le 18 juillet 2015