Section courante

A propos

Section administrative du site

FREEMEM

 Libérer la mémoire
Turbo Pascal pour Windows System

Syntaxe

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

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 Turbo Pascal pour Windows :

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

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

Libère le tableau1
Libère le tableau2

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - FREEMEM

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