Section courante

A propos

Section administrative du site

DISPOSE

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

on obtiendra le résultat semblable suivant :

Prénom : Sylvain
Nom : Maltais
Ville : Laval


Dernière mise à jour : Dimanche, le 10 décembre 2017