O‘zbekiston Respubllkasi Xalq ta'limi vazirligi tasdiqlagan

IntToStr funksiyasi. Ilovaning ishini yanada yaxshilaymiz. Ilova o‘z

oynasining o‘lchamlarini o‘zgartirganda ular qanday bo‘lgani bizga mavhumligicha qolmoqda. Uni ilova oynasiga chiqarishning iloji bormi? Hozircha biz buning bitta yo‘lini bilamiz: oyna o‘lchamlarini oyna sarlavhasiga chiqarish. Buning uchun

Form1.Caption:=Form1.Height+’*’+For operatoridan foydalanamiz. Lekin bu operatordan foydalanib bo‘lmaydi,
chunki unda bir turdagi o‘zgaruvchiga ikkinchi turdagi o‘zgaruvchini kiritishga urinish bo‘layapti. Delphida bu xatoga olib keladi.
93

Butun son turidagi kattalikni matn satri turidagi kattalikka o‘tkazish uchun IntToStr (integer to string – butundan satrga olingan) funksiyasidan foydalanamiz:

Form1.Caption:=’(‘+IntToStr(Form1 tToStr(Form1.Wide)+’)’;
Unga ilovaning haqiqiy nomini ham qo‘shib qo‘yamiz:

Form1.Caption:=’Uchinchi ilova’+

Button1 tugmasini ikki marta bosib, dastur kodi oynasini chaqiramiz va oxirgi ikki satrni unga qo‘shib qo‘yamiz:
If Form1.Width<600 then begin Form1.Width:=Form1.Width+16; Form1.Height:=Form1.Height+9; End else
ShowMessage(‘Oyna boshqa kengaymay Form1.Caption:=’(‘+IntToStr(Form1. Str(Form1.Width)+’)’; Form1.Caption:=’Uchinchi ilova ’+
Ilovani ishga tushirib, uning sarlavhasi o‘zgarishini kuzatamiz:



YODDA SAQLANG !
ShowMessage yangi muloqot oynasini yaratadi va u yopilmaguncha ilova o‘z ishini to‘xtatib turadi.