Avtomatika va elektrotexnologiya

end; 
// ro'yxatni chiqarish 
procedure TForm1.Button2Click(Sender: TObject); 
var 
 curr: TPStudent;  // royxatning joriy elementi 
 n:integer;        // ro'xat uzunligi (elementlar soni) 
 st:string;        // ro'yxatni satrli keltirish 
begin 

---

 n := 0; 
 st := ''; 
 curr := head;  // ro'yxatning birinchi elementiga ko'rsatkich 
 while curr <> NIL do 
    begin 
      n := n + 1; 
      st := st + curr^.f_name + ' ' + curr^.l_name +#13; 
      curr := curr^.next;  // navbatdagi elementga ko'rsatkich 
    end; 
 if n <> 0 
    then ShowMessage('Ro`yxat:' + #13 + st) 
    else ShowMessage('Ro`yxatda element yo`q.'); 
end; 
end. 
Ro‘yhatga element qo‘shish TForm1.Button1Click protsedurasida amalga oshiriladi. Bu 
protsedura  dastlab  dinamik  o‘zgaruvchi-yozuv  yaratadi,  unga  muloqot  oynasidagi 
maydonlarning qiymatini o‘zlashtiradi va head ko‘rsatkichining qiymatini to‘g‘rilaydi. 
Ro‘yhatni  chiqarish  Ko‟rsatish  tugmasi  bosilganda  bajariluvchi  TForm1.Button2Click 
protsedurasida  amalga  oshiriladi.  Ro‘yhat  elementlariga  murojaat  etish  uchun  curr 
ko‘rsatkichidan foydalaniladi.  Dastlab u ro‘yhatdagi  birinchi  elementning adresiga ega bo‘ladi. 
Ro‘yhatning  birinchi  elementi  qayta  ishlab  bo‘lingandan  so‘ng,  curr  ko‘rsatkichiga  next 
buyrug‘i  yordamida  ro‘yhatning  navbatdagi  elementining  adresi  o‘zlashtiriladi.  Shu  tariqa 
ko‘rsatkich ro‘yhat bo‘yicha o‘zgartirib boriladi. Bu jarayon ro‘yhatdagi joriy elementning next 
maydonining qiymati NIL (nol) ga teng bo‘lgungacha davom etadi.