Section courante

A propos

Section administrative du site

DISPOSE

Disposé
Turbo Pascal 1+ System

Syntaxe

Procedure Dispose(p:Pointer);
Procedure Dispose(p:Pointer; Destructor);

Paramètres

Nom Description
p Ce paramètre permet d'indiquer le pointeur à traiter
Destructor Ce paramètre permet d'indiquer le destructeur à utiliser pour le traiterment.

Description

Cette procédure permet de libérer une partie de la mémoire préalablement alloué par la procédure New.

Remarques

Exemple

Voici un exemple d'une utilisation typique de cette procédure :

  1. Program DisposeSamples;
  2.          
  3. Type
  4.  personne=Record
  5.   salutation:Char;
  6.   prenom:String[30];
  7.   nomfamille:String[30];
  8.   ville:String[30];
  9.   pays:String[30];
  10.   province:String[30]; 
  11.  End;
  12.          
  13. Var
  14.  a:^personne;
  15.          
  16. BEGIN
  17.  New(a);
  18.  If(a <> NIL)Then Begin
  19.   a^.salutation := 'M';
  20.   a^.prenom := 'Sylvain';
  21.   a^.nomfamille := 'Maltais';
  22.   a^.ville := 'Laval';
  23.   a^.pays := 'CA';
  24.   a^.province := 'QC';
  25.   WriteLn('Prénom : ',a^.prenom);
  26.   WriteLn('Nom : ',a^.nomfamille);
  27.   WriteLn('Ville : ',a^.ville);
  28.   Dispose(a);
  29.  End
  30.   Else 
  31.  Begin
  32.   WriteLn('Manque de mémoire');
  33.  End;
  34. END.

on obtiendra le résultat semblable suivant :

Prénom : Sylvain
Nom : Maltais
Ville : Laval

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 144.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1223.

Dernière mise à jour : Dimanche, le 25 janvier 2015