Section courante

A propos

Section administrative du site

FREEMEM

 Libérer la mémoire
Virtual Pascal System

Syntaxe

Procedure FreeMem(p:Pointer; t:LongInt);

Paramètres

Nom Description
p Ce paramètre permet d'indiquer le pointeur contenant l'adresse de la mémoire ayant déjà été alloué
t Ce paramètre permet d'indiquer le taille du bloc de mémoire alloué dynamiquement

Description

Cette procédure permet de libérer une partie de mémoire dynamique attribué dans la zone de mémoire de tas à l'aide de la procédure GetMem.

Exemple

Voici quelques exemples typiques de l'utilisation de «FreeMem» en Virtual Pascal :

  1. Program FreeMemSamples;
  2.      
  3. Type
  4.  TLongInt=Array[0..1000] of LongInt;
  5.      
  6. Var
  7.  tableau1,tableau2:^TLongInt;
  8.      
  9. BEGIN
  10.  GetMem(tableau1,1000*sizeof(LongInt));
  11.  GetMem(tableau2,1000*sizeof(LongInt));
  12.  If tableau1 <> NIL Then Begin
  13.   WriteLn('Libère le tableau1');
  14.   FreeMem(tableau1,1000*sizeof(LongInt));
  15.  End;
  16.  If tableau2 <> NIL Then Begin
  17.   WriteLn('Libère le tableau2');
  18.   FreeMem(tableau2,1000*sizeof(LongInt));
  19.  End;
  20. END. 

on obtiendra le résultat suivant s'il y a assez de mémoire disponible :

Libère le tableau1
Libère le tableau2

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