Delphi tilida

+ 'Vaqt: ' + IntToStr(min) + ' min ' 
+ IntToStr(sek) + ' sek' + #13 + 
'Tezlik: ' + FlgatToStrF(v,ffFixed,4,2) + 'km/sgat'; 
end; 
procedure TForml.Button2Click(Sender: TObject); 
begin 
Forml.Close; 
end; 
end. 
Buttonlclick funksiyasi tezlikni hisoblab, natijani Label4 maydoniga 
chiqaradi. Boshlangich qiymatlar Editl va Edit2 tahrirlash may- 
donlarining Text xossasiga murojaat qilish yordamida kiritiladi. Text 
xossasi foydalanuvchi kiritgan simvollardan iborat satmi o‘z ichiga 
oladi. Satrni sonlarga aylantirish uchun StrToInt va StrToFloat 
funksiyalaridan foydalaniladi. StrToInt funksiyasi EditLText ga 
kiritilgan satmi tekshirib, agar simvollar raqamlardan iborat bo‘lsa. 
butun songa aylantirib dist. o‘zgaruvchisiga qiymat sifatida beradi. 
Shu kabi StrToFioat funksiyasi Edit2. Text kiritilgan satrni haqiqiy 
songa aylantirib t o‘zgaruvchisiga qiymat sifatida beradi. 

81 

So‘ngra Trunc funksiyasi t o‘zgaruvchisining butun qismini 
ajratadi —bu minutlarga mos keladi. So‘ngra Trunc(t*100) mod 100 
ifodasi sekundlami ajratadi. 
Tezlik km/soat birlikda aniqlangani uchun, metr va sekundlar 
kilometr va soatlarga aylantiriladi. 
Hisoblangan tezlik qiymati Label4 maydonida Caption xossasi 
yordamida akslantiriladi. Sonni satrga aylantirish uchun IntToStr va
FloatToStr funksiyalaridan foydalaniladi. 
Chiqish tugmasinibosilganda dastur ishini to‘xtatadi. Buning uchun 
close usuli yordamida dastur oynasi berkitiladi. 

4.3. Tanlash tugmalarini o‘rnatish 

RadioGroup guruhli tanlash tugmalari ilovalar yaratishda bir necha 
variantlardan biririi tanlash uchun ishlatiladi. Bu komponenta Standart 
komponentalar palitrasida joylashgan bo‘lib, u " ko‘rinishdagi 
piktogrammaga ega. Uning asosiy xossasi Items bolib. u tugmalarnomlari 
ro‘yxatini o‘zida saqlaydi. Tugmalar nomlari ro‘yxatini kiritishda oldin 
RadioGroup tugmasi uchun formadan joy ajratiladi va keyin Items 
xossasi ko‘rsatilib, undan uch nuqtali tugmacha bosiladi, natijada 
StringList Editor oynasi ochiladi. Bu oynadan tanlash tugmalari 
nomlarining har qaysisi yangi qatordan kiritiladi va keyin «Ok» tugmasi 
bosiladi. Formaga RadioGroupguruhlitanlashtugmasijoylashtirilganda 
u RadioGroupl nom bilan yoziladi. Bu nomni boshqa mos nomga 
almashtirish Caption xossasiga kirib amalga oshiriladi.