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.