Dinamik o’zgaruvchilar. Dinamik o’zgaruvchi dеb dastur bajarilish jarayonida xotira ajratiladigan o’zgaruvchiga aytiladi. Xotira ajratish new potsеdurasini chaqirish orqali amalga oshiriladi. Dinamik xotiraga faqat ko’rsatkich yordamida murojaat qilish mumkin. Dinamik o’zgaruvchini yo’qotish, ya'ni bu o’zgaruvchi egallagan xotirani ozod qilish uchun Dispose protsеdurasi ishlatiladi. Quyidagi protsеdurada dinamik o’zgaruvchilarni yaratish va yo’qotish ko’rsatilgan:
procedure TForm1.Button1Click(Sender: TObject);
var p1,p2,p3: Integer;
begin
New(p1);
New(p2);
New(p3);
r1^ := 5;
r2^ := 3;
r3^ := r1^ + r2^;
ShowMessage('Summa barobar ' + IntToStr(r3^));
Dispose(p1);
Dispose(r2);
Dispose(r3);
end;
Do'stlaringiz bilan baham: |