Dispose.PAS

Language:
Русский
English

   {Dispose.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the New and Dispose procedures.}

  type
    Str18 = string[18];
  var
    P: ^Str18;
  begin
    New(P);
    P^ := 'Now you see it...';
    Dispose(P);  { Now you don't... }
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //