Mirsaid Aripov, Nurillo Otaxanov

10.3-listing. Dinamik o`zgaruvchilarni yaratish,

foydalanish va yo`q qilish

procedure TForm1.Button1Click(Sender: TObject);

var p1, p2, p3: ^Integer;  integer tipidagi ko`rsatkichlar

begin

 integer tipidagi dinamik o`zgaruvchilar yaratilmoqda.

 dinamik o`zgaruvchilarga joy ajrati lmoqda

New(p1);

New(p2);

New(p3);

p1^ : 5;

p2^ : 3;

p3^ : p1^  p2^;

ShowMessage('Sonlarning yig’indisi= '  IntToStr(p3^);

 Dinamik o`zgaruvchilarni yo`qotish

 ( dinamik o`zgaruvichlar egallagan joyni bo`shatish.

Dispose(p1);

Dispose(p2);

Dispose(p3);

end;

Protsedura ish boshlaganda uchta dinamik o`zgaruvchi yaratiladi. p1 va r2 o`zgaruvchilarga qiymat beriladi, uchinchisi esa dastlabki ikkitasining yig’indisiga teng.