Section courante

A propos

Section administrative du site

DESTRUCTOR

 Destructeur
Free Pascal  

Syntaxe

Destructor method;

Paramètres

Nom Description
method Ce paramètre permet d'indiquer le nom du destructeur

Description

Ce mot réservé permet de définir la procédure permettant la libération de l'objet dans la programmation dans la POO (Programmation Orienté Objet).

Exemple

Voici un exemple de l'utilisation de ce mot réservé :

  1. Program DestructorSamples;
  2.  
  3. Type
  4.  MonObjet=Object
  5.   Constructor Init;
  6.   Procedure Run;
  7.   Destructor Done;
  8.  End;
  9.  
  10. Constructor MonObjet.Init;Begin
  11.  WriteLn('Initialisation de l''objet');
  12. End;
  13.  
  14. Procedure MonObjet.Run;Begin
  15.  WriteLn('Exécution de l''objet');
  16. End;
  17.  
  18. Destructor MonObjet.Done;Begin
  19.  WriteLn('Fin de l''objet');
  20. End;
  21.  
  22. Var
  23.  Objet:MonObjet;
  24.  
  25. BEGIN
  26.  Objet.Init;
  27.  Objet.Run;
  28.  Objet.Done; 
  29. END.

on obtiendra le résultat suivant :

Initialisation de l'objet
Exécution de l'objet
Fin de l'objet

Dernière mise à jour : Dimanche, le 28 février 2016