Создание использование
Листинг 8.3. Создание, использование и уничтожение динамических переменных
procedure TForm1.Button1Click(Sender: TObject);
var
p1,p2,p3: Integer; // указатели на переменные типа integer
begin
// создадим динамические переменные типа integer
// (выделим память для динамических переменных)
New(p1);
New(p2);
New(p3);
р1^ := 5;
р2^ := 3;
р3^ := р1^ + р2^;
ShowMessage('Сумма чисел равна ' + IntToStr(р3^));
// уничтожим динамические переменные
// (освободим память, занимаемую динамическими переменными)
Dispose(p1);
Dispose(р2);
Dispose(р3);
end;
