№ Mavzu nomi j a

procedure TForm1.Button1Click(Sender: TObject);  
var i,j:integer;  
begin  
i:=ListBox1.ItemIndex;  if i>=0 then begin j:=StrToInt(ComboBox1.Items[i]); 
ComboBox1.Items[i]:=IntToStr(j+SpinEdit1.Value);  
end; end;  
 
 
 
 
 
 
 
 
Protseduraning  birinchi,  uchinchi  va  o‘ninchi  satrlari  oynada  borligini unutmang. 
 Ikkinchi  satrda  ikkita  yangi  o‘zgaruvchi  yaratiladi.  To‘rtinchi satrida ulardan birinchisi:  i  
ga tanlangan  futbolchining  ro‘yxatdagi raqami beriladi. Beshinchi satrda bu raqamning 
nomanfiyligi tekshiriladi (aks holda futbolchi tanlanmagan bo‘ladi).  Yettinchi satrda ikkinchi   
o‘zgaruvchi:  j  ga ComboBox1  ro‘yxatining  i-satridagi  son  (dastlab  u  0  ga  teng)  
beriladi.  Sakkizinchi qatorda bu songa  SpinEdit1  da son (futbolchiga berilgan baho)   
qo‘shiladi va  u matn satriga aylantirilib,  ComboBox1  ro‘yxatining  i-satriga yozib qo‘yiladi. 
Natijada  ComboBox1  dagi ro‘yxatda har bir futbolchi to‘plagan ballar  yig‘ilib  boradi.  Uni  
bu    obyektning    o‘ng    tomonidagi    uchburchak  ko‘rinishida  tugmani  bosib  xohlagan 
paytimizda ko‘rishimiz mumkin. Ilovani  F9  tugmasini bosib ishga tushiramiz. Unda birinchi 
ro‘yxatdan futbolchini  tanlab,  ikkinchi  maydonchada  unga  berilgan  bahoni  tanlaymiz va  
OK  tugmasini bosamiz (chapdagi rasm). Bir necha marta futbolchilarga ovoz  berib,  natijani  

---

ko‘rish    uchun    uchinchi    maydonchaning    o‘ng  tomonidagi  uchburchak  tugmani  bosamiz 
(o‘ngdagi rasm).