Процедура Dispose

Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Процедура Dispose в Паскале выполняет освобождение памяти. Синтаксис:

 
procedure Dispose(P: Pointer);

procedure Dispose(P: TypedPointer; Des: TProcedure);

Освобождение памяти в Паскале (как и в большинстве других языков) требуется после того, как динамически выделенная память становится больше не нужна.

После работы с памятью ее надо освободить, иначе после завершения программы в памяти останется «мусор». Кроме того, хотя операционная система следит за тем, чтобы освобождать память после завершения программ, делает она это, прямо сказать, не всегда хорошо (речь о Windows, про другие системы не знаю).

Поэтому могут возникать такие неприятности, как утечка памяти. Что в худшем случае может привести к полному зависанию компьютера.

Поэтому любой порядочный программист должен убирать за собой, то есть после завершения программы освобождать память, которая была взята вашей программой у операционной системы.

Первая форма процедуры Dispose освобождает память, выделенную с помощью вызова процедуры New. Указатель Р должен быть типизированным. Освобожденная память возвращается в кучу.

Вторая форма процедуры Dispose принимает в качестве первого параметра указатель на тип объекта, а в качестве второго параметра - имя деструктора этого объекта. Деструктор будет вызван, и память, выделенная для объекта, будет освобождена.

Если указатель не связан с каким-либо местом в куче (например, является пустым), то при вызове процедуры Dispose возникнет ошибка времени выполнения.

Рассмотрим только пример использования первого варианта:

procedure Dispose(Указатель);

Где Указатель – переменная, которая ранее использовалась с процедурой New для выделения памяти. Соответственно, процедура Dispose освобождает блок памяти, выделенный ранее процедурой New.

Пример:

New(PMas); //Выделить память
//…
//Здесь поработали
//…
Dispose(PMas); //Освободить память
PMas := NIL;   //Уничтожить указатель

Здесь, кроме освобождения памяти, мы ещё указателю присваиваем нулевое значение (то есть уничтожаем его). Это не обязательно, однако лучше это делать, иначе может возникнуть ошибка во время выполнения программы (в Паскале я такого не встречал, но в С++ бывало).

Пример программы:

program disposep;

const MAX_MAS = 8;  //Кол-во элементов в массиве

type TMas = array[1..MAX_MAS] of integer; //Массив - новый тип данных

var i    : integer; //Индексная переменная
    PMas : ^TMas;   //Указатель на наш массив

//*******************************************************************
// ОСНОВНАЯ ПРОГРАММА
//*******************************************************************
begin
  New(PMas);               //Выделить память
  for i := 1 to MAX_MAS do //Вывести содержимое массива
  WriteLn(PMas^[i]);
  WriteLn;
  FillDWord(PMas^, SizeOf(PMas^), 0); //Заполнить массив нулями
  for i := 1 to MAX_MAS do            //И снова вывести
  WriteLn(PMas^[i]);
  Dispose(PMas);           //Освободить память

  //Dispose(PMas);         //!!! Второй раз вызывать нельзя,
                           //т.к. указатель уже никуда не ссылается

  WriteLn('Then end. Press ENTER...');
  ReadLn;
end.

ПРИМЕЧАНИЕ
Если вы смутно представляете, что такое динамическая память и указатели, а такие слова как “куча” вызывают у вас недоумение, то советую ознакомиться с книгой “Куда указывают указатели”.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты