mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 09:11:53 +01:00
18 lines
443 B
ObjectPascal
18 lines
443 B
ObjectPascal
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.
|