Mail

В этот день много лет назад...
2 декабря. В 1951 году (72 года назад) - В состав военно-морского флота СССР входит первая подводная лодка проекта 613, с которого начнется строительство подлодок второго поколения. По многим техническим показателям это - лучшая лодка среднего водоизмещения своего времени: самая глубоководная (до 200 м), может находиться под водой до 10 дней, небывалая дальность хода - почти 9 тысяч километров. Впервые в мире их корпус покрыт резиной, за счет чего они становятся самыми бесшумными. С этих лодок будут совершены первые в мире пуски ракет. До 70-х они будут составлять ядро советских подводных сил.

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.