Section courante

A propos

Section administrative du site

DISPOSE

Disposé
Virtual Pascal System

Syntaxe

Procedure Dispose(p:Pointer);

Paramètres

Nom Description
p Ce paramètre permet d'indiquer le pointeur à traiter

Description

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

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


Dernière mise à jour : Vendredi, le 29 juillet 2016