Mirsaid Aripov, Nurillo Otaxanov

10.8. Elementlarni ro`yxatdan o`chirish

O`chirilishi talab qilingan tugundan avvalgi tugun ko`rsatkichiga tuzatmalar kiritish orqali uni ro`yxatdan olib tashlash mumkin. (9.12-rasm)

10.11-rasm. Dastur tartiblagan ro`yxatdan namuna

9.12-rasm. Elementni ro`yxatdan o`chirish

Tugun ro`yxatdan o`chirilganidan so`ng, xotiradan band qilgan joyini ham bo`shatilishi shart. Buning uchun dispose protsedurasidan foydalaniladi. Protseduraning parametri bo`lgan dinamik o`zgaruvchi band qilgan joy bo`shatiladi. Masalan,

Var r: ^integer;

begin

new(p);

{ dasturning buyruqlari}

dispose(p);

end;

dasturida p - dinamik o`zgaruvchi hosil qilinadi, so`ngra u yo`qotiladi.

Xotiraning bo`shagan qismidan boshqa o`zgaruvchilar uchun foydalanish mumkin. Agar dinamik o`zgaruvchilar band qilgan xotira qismlari bo`shatilmasa, dastur ma`lum bir muddat ishlaganidan so`ng, navbatdagi dinamik o`zgaruvchi uchun joy yetmay qolishi mumkin.

Quyidagi dastur tartiblangan ro`yxatga tugunlarni qo`shish va o`chirishga imkon beradi (9.13-rasm).

Tugunni ro`yxatga qo`shish, ekranga chiqarish, ro`yxat tugunlarini e`lon qilish protseduralari Tartiblangan dinamik ro`yxat2 dasturidagi mos protseduralar bilan bir hil bo`lgani uchun, ularni keltirmaymiz.

9.13-rasm. Dinamik ro`yxatdan o`chirish dasturining dialog oynasi

Tugunni ro`yxatdan o`chirish amalini TForm1.Button3Click protsedurasi bajaradi. U O`chirish (Button3) tugmasini chertilishi bilan ishga tushadi (9.6-listing).