dispose.pas

Пример программы для процедур New и Dispose.

Код примера
  {Dispose.PAS}
 
  { Пример программы для процедур New и Dispose }
 
  Type Str18 = String[18];
 
  Var P : ^Str18;
 
  Begin
  New(P);
  P^:='Сейчас переменная есть...';
  Dispose(P);  { А теперь уже нет... }
 End.

Скачать dispose.pas