| 1234567891011121314151617 |
- 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.
|
