Avtomatika va elektrotexnologiya

end; 
procedure TForm1.Button2Click(Sender: TObject); 
var 
 curr: TPStudent;  // ro'yxatning joriy elementi 
 n:integer; // ro'yxat uzunligi (elementlar miqdori) 
 st:string; // ro'yxatning satrli berilishi 
begin 
 n:=0; 
 st:=''; 
 curr:=head; 
 while curr <> NIL do 

---

    begin 
      n:=n+1; 
      st:=st+curr^.f_name+' '+curr^.l_name+#13; 
      curr:=curr^.next; 
    end; 
 if n <> 0 
    then ShowMessage('Ro`yxat:'+#13+st) 
    else ShowMessage('Ro`yxatda element yo`q.'); 
end; 
procedure TForm1.FormActivate(Sender: TObject); 
begin 
     head:=NIL; 
end; 
end. 
Tform1.Button1Click protsedurasi dinamik o‘zgaruvchi-yozuvni  yaratadi, unga muloqot 
oynasidagi  tahrirlash  maydoniga  kiritilgan  ma‘lumotlarni  o‘zlashtiradi,  tugun  uchun  mos 
keluvchi joyni qidirib topadi, va ushbu tugunni ro‘yhatga qo‘shadi. 
 
 
 
Tform1.Button2Сlick  protsedurasi  ro‘yhatni  chiqarishni  amalga  oshiradi.  Kiritilgan 
ro‘yhatni chiqarilishi ko‘rsatilgan.