Section courante

A propos

Section administrative du site

DISPOSE

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

on obtiendra le résultat semblable suivant :

Prénom : Sylvain
Nom : Maltais
Ville : Laval

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - FreeMem
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - GetMem
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - New
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - ReallocMem

Dernière mise à jour : Mercredi, le 18 février 2015