IPB

> FreeMem.PAS
Форум
Загрузка...
 
Народное кино
Учитель физики желает познакомиться
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Language:
Русский
English

  {FreeMem.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the FreeMem and GetMem procedures and the MaxAvail
    function.}

  uses WinCrt;

  type
    TFriendRec = record
                  Name: string[30];
                  Age : Byte;
                end;
  var
    p: pointer;
  begin
    if MaxAvail < SizeOf(TFriendRec) then
      Writeln('Not enough memory')
    else
    begin
      { Allocate memory on heap }
      GetMem(p, SizeOf(TFriendRec));
      { ...}
      { ...Use the memory... }
      { ...}
      { Then free it when done }
      FreeMem(p, SizeOf(TFriendRec));
    end;
  end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"