freemem.pas

{FreeMem.PAS}
 
{ Пример программы для процедур FreeMem и GetMem и функции MaxAvail }
 
Uses WinCrt;
 
Type TFriendRec = Record
             Name : String[30];
             Age  : Byte;
                  End;
Var P : Pointer;
 
Begin
 If MaxAvail<SizeOf(TFriendRec) Then WriteLn('Недостаточно памяти')
  Else
 Begin
  { Распределяем память в куче }
  GetMem(P, SizeOf(TFriendRec));
  { ...}
  { ... Используем память ... }
  { ...}
   { Освобождаем ее при завершении программы }
   FreeMem(P, SizeOf(TFriendRec));
  End;
 End.