Section courante

A propos

Section administrative du site

MEMAVAIL

 Mémoire disponible
Virtual Pascal System

Syntaxe

Function MemAvail:LongInt;

Description

Cette fonction permet de demander la taille total en octet de mémoire dynamique allouable dans la mémoire de tas.

Exemple

Voici un exemple de l'utilisation de cette fonction :

  1. Program MemAvailSamples;
  2.          
  3. Var
  4.  A:Pointer;
  5.          
  6. BEGIN
  7.  If(MemAvail > 4096)Then Begin
  8.   If(MaxAvail > 4096)Then Begin
  9.    GetMem(A,4096);
  10.    WriteLn('Bloc de 4096 octets d''allouer');
  11.   End
  12.    Else
  13.   Begin
  14.    WriteLn('Pas assez de mémoire disponible en bloc continue');
  15.   End;
  16.  End 
  17.   Else
  18.  Begin
  19.   WriteLn('Pas assez de mémoire disponible');
  20.  End;
  21.  WriteLn('Taille du plus gros bloc de mémoire disponible = ',MaxAvail);
  22.  WriteLn('Taille total de mémoire disponible = ',MemAvail);
  23. END.

on obtiendra un résultat semblable au suivant :

Bloc de 4096 octets d'allouer
Taille du plus gros bloc de mémoire disponible = 192816
Taille total de mémoire disponible = 192816

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