DESCRIPTION.

La procédure PROC_discard() détruit l'objet passé en argument.

SYNTAXE.

PROC_discard( OBJ_Objet{} )

REMARQUES.

OBJ_Objet{} doit être l'identifiant de l'instance, l'objet à détruire.

Si l'objet à détruire n'est pas valide, ou n'existe plus, une erreur Bad use of structre sera retournée.

La procédure PROC_discard() est importée depuis le module classlib.bbc. 

EXEMPLE.

REM --- Importation des modules ---

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "classlib.bbc"

REM --- Declaration de la structure de données associee à la classe ---

DIM MDL_Rectangle{ longeur , largeur , @constructeur , @@destructeur , MTD_Diagonale }

REM --- Creation de la classe ---

PROC_class( MDL_Rectangle{} )

REM --- Creation d'un nouvel objet (instance) de la classe MDL_Rectangle ---

PROC_new( OBJ_RectA{} , MDL_Rectangle{} )

REM --- Appel des methodes MTD_Diagonale qui retourne une valeur ---

PRINT "Les diagonales font : " ; FN( OBJ_RectA.MTD_Diagonale ) : REM - OBJ_RectA{}.MTD_Diagonale

REM --- Supression de l'objet ---

PROC_discard( OBJ_RectA{} )

REM --- Fin et sortie du programme ---

END

REM --- DEFINITIONS DES PROCEDURES ET FONCTIONS PERSONNALISEES ---

REM --- Definitions des methodes de la classe MDL_Rectangle  ---

REM --- Constructeur de la classe  MDL_Rectangle  ---

DEF MDL_Rectangle.@constructeur

MDL_Rectangle.longeur = 10

MDL_Rectangle.largeur = 5

PRINT "Nouveau rectangle de 10 x 5 creer."

ENDPROC

REM --- destruction de l'objet  ---

DEF MDL_Rectangle.@@destructeur

MDL_Rectangle.longeur = 10

MDL_Rectangle.largeur = 5

PRINT "L'objet a ete detruit."

ENDPROC

REM --- Methode de type fonction sans parametre retournant la la longeur des diagonales du rectangle --

DEF MDL_Rectangle.MTD_Diagonale

kcotes = ( MDL_Rectangle.longeur ^ 2 ) + ( MDL_Rectangle.largeur ^ 2 )

kdiagonale =  SQR( kcotes )

= kdiagonale