Mail

В этот день много лет назад...
26 ноября. В 1971 году (53 года назад) - Законом СССР устанавливается минимальный размер заработной платы рабочих и служащих - 70 руб. в месяц, который официально останется неизменным в течение почти 20 лет.

Turbo Pascal Documentation

Процедура Dispose

      Функция: Уничтожает динамическую переменную.
     Описание: Disposе(var p: pointer)
     Примечания: Параметр p является переменной-указателем и
может  иметь тип, соответствующий любому типу указателя. Для
этого параметра должно быть предварительно выполнено присва-
ивание с помошью процедуры New или ему должно быть присвоено
значащее значение с помощью оператора  присваивания.  Данная
процедура  разрушает  переменную,  на  которую указывает p и
возвращает занимаемую ей память в динамически распределяемую
область  памяти. Значение p становится неопределенным и пос-
ледующие ссылки вида p  являются ошибкой.
     Прочее: См. также процедуры Release, FreeMem.
     Пример:

type
   Str18 = sting[18];
var
   p : ^Str18;
begin
  New(p);
  p^ := 'теперь вы можете это видеть...';
  Dispose(p);                            { а теперь нет... }
  end.