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 :
- Program DisposeSamples;
-
- Uses WinCrt;
-
- 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 : Dimanche, le 10 décembre 2017