Правила форума
Dispose.PASLanguage:
Русский
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.
::
::
::
