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 :
- Program SysFreeMemSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- Type
- TLongInt=Array[0..1000] of LongInt;
-
- Var
- tableau1,tableau2:^TLongInt;
-
- BEGIN
- tableau1:=SysGetMem(1000*sizeof(LongInt));
- tableau2:=SysGetMem(1000*sizeof(LongInt));
- If tableau1 <> NIL Then Begin
- WriteLn('Libère le tableau1');
- SysFreeMem(tableau1);
- End;
- If tableau2 <> NIL Then Begin
- WriteLn('Libère le tableau2');
- SysFreeMem(tableau2);
- End;
- END.
on obtiendra le résultat suivant s'il y a assez de mémoire disponible :
Libère le tableau1Libère le tableau2
Dernière mise à jour : Mercredi, le 18 février 2015