Section courante

A propos

Section administrative du site

SYSFREEMEM

Système : Libère la mémoire
Delphi/Kylix/Lazarus System

Syntaxe

Function SysFreeMem(P:Pointer):Integer;

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é

Description

Cette fonction permet de libérer une partie de mémoire dynamique attribué dans la zone globale de mémoire de tas.

Exemple

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

  1. Program SysFreeMemSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.      
  6. Type
  7.  TLongInt=Array[0..1000] of LongInt;
  8.      
  9. Var
  10.  tableau1,tableau2:^TLongInt;
  11.      
  12. BEGIN
  13.  tableau1:=SysGetMem(1000*sizeof(LongInt));
  14.  tableau2:=SysGetMem(1000*sizeof(LongInt));
  15.  If tableau1 <> NIL Then Begin
  16.   WriteLn('Libère le tableau1');
  17.   SysFreeMem(tableau1);
  18.  End;
  19.  If tableau2 <> NIL Then Begin
  20.   WriteLn('Libère le tableau2');
  21.   SysFreeMem(tableau2);
  22.  End;
  23. 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 : Mercredi, le 18 février 2015