DISPOSE |
Dispose |
|---|---|
| QuickPascal | 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.
Remarque
- La procédure Dispose désalloue une variable dynamique précédemment allouée par la procédure New. La mémoire référencée par p, pouvant être n'importe quel type de pointeur, est renvoyée au tas et la valeur de p devient indéfinie.
Exemple
Voici un exemple d'une utilisation typique de cette procédure :
- Program DisposeSamples;
-
- Type
- personne=Record
- salutation:Char;
- prenom:String[30];
- nomfamille:String[30];
- ville:String[30];
- pays:String[30];
- province:String[30];
- End;
-
- Var
- a:^personne;
-
- BEGIN
- New(a);
- If(a <> NIL)Then Begin
- a^.salutation := 'M';
- a^.prenom := 'Sylvain';
- a^.nomfamille := 'Maltais';
- a^.ville := 'Laval';
- a^.pays := 'CA';
- a^.province := 'QC';
- WriteLn('Prénom : ',a^.prenom);
- WriteLn('Nom : ',a^.nomfamille);
- WriteLn('Ville : ',a^.ville);
- Dispose(a);
- End
- Else
- Begin
- WriteLn('Manque de mémoire');
- End;
- END.
on obtiendra le résultat semblable suivant :
Prénom : SylvainNom : Maltais
Ville : Laval
Dernière mise à jour : Vendredi, le 13 février 2015