Function Memavail : Longint;
Memavail returns the size, in bytes, of the free heap memory.
Remark: The heap grows dynamically if more memory is needed than is available.
None.
Program Example41; { Program to demonstrate the MemAvail function. } Var P, PP : Pointer; begin GetMem (P,100); GetMem (PP,10000); FreeMem (P,100); { Due to the heap fragmentation introduced By the previous calls, the maximum amount of memory isn't equal to the maximum block size available. } Writeln ('Total heap available (Bytes) : ',MemAvail); Writeln ('Largest block available (Bytes) : ',MaxAvail); end.