Ko’rildi” O’quv ishlari bo’yicha direktor o’rinbosari: A. Niyozov

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;begin
n[0]:=n[0]+1;
i:= Radiogroup1.Itemindex; if i>=0 then n[i+1]:=n[i+1]+1;
Radiogroup1.Itemindex:=-1; end;
Bu protsedura har safar ishga tushganda (ilovadagi OK tugmasi bosilganda) ikkinchi qatordagi operator yordamida yangi o‘zgaruvchi: i ni yaratadi. To‘rtinchi qatorda so‘rovda qatnashganlar sonini bittaga oshiradi. Beshinchi qatorda Radiogroup1 da qaysi variant tanlanganini i o‘zgaruvchiga uzatiladi.
Agar bu qiymat 0 dan katta yoki unga teng bo‘lsa, ya’ni biror variant tanlangan bo‘lsa, oltinchi qatorda bu variantning tanlanganligi soni bittaga oshadi. Yettinchi qatorda variantlar tanlanmagan holga o‘tkaziladi va protsedura o‘z ishini tugatadi. Ilova esa keyingi foydalanuvchining tanlovini qabul qilishga tayyor turadi:

YODDA SAQLANG !
Radio tugmalar guruhi bir nechta variantdan bittasini tanlash uchun xizmat qiladi.
SAVOL VA TOPSHIRIQLAR
1. Radiotugmalar guruhi obyektining Items xossasidan nima maqsadda foydalaniladi?
2. Radiotugmalar guruhi obyektining Columns xossasi nima vazifa bajaradi?
3. Ilovaga sinfdoshlaringizning ismlari joylashtirilgan radiotugmalar guruhini joylang. Ulardan biri tanlanib, boshqarish tugmasi bosilganda tanlangan o‘quvchiga uning ismini aytib salom beradigan ilova yarating.
4. Oldingi ilovaga yana fanlar nomi yozilgan va baholar ro‘yxati bo‘lgan yana ikkita radiotugmalar guruhini kiriting. Tanlangan o‘quvchining tanlangan fan bo‘yicha tanlab olingan bahosini ekranga chiqaradigan ilova yarating.
UYGA VAZIFA :
1. Radiotugmalar guruhi kerak bo‘ladigan vaziyatlarga misol keltiring.
2. Radiotugmalar guruhi RadioGroup obyekti obyektlar panelining qayerida joylashgan?