Kafedra mudiri: O‘qituvchi

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).