Ы маамммтттттngy s,,,,,,,,,,,C, xf

k,I,maxx,minn:Integer;

s1,s2:String;

implementation

{$R *.dfm}
procedure Tform1.Button1Click(Sender: Tobject);

begin

ComboBox1.Items.Add(ComboBox1.text);

i:=i+1;

a[i]:=StrToInt(ComboBox1.text);

ComboBox1.SetFocus;

end;
procedure Tform1.FormCreate(Sender: Tobject);

begin

i:=0;

ComboBox1.Clear;

end;
procedure Tform1.Button2Click(Sender: Tobject);

begin

minn:=a[1];

maxx:=a[1];

For k:=1 to 10 do

Begin

If minn>a[k] Then Minn:=a[k];

If maxx

End;

Str(maxx:5,S1);

Str(minn:5,S2);

Memo1.Clear;

Memo1.Lines.Add(‘Eng kattasi=’+s1);

Memo1.Lines.Add(‘Eng kichigi =’+s2);

end;
End.

Savollar :

1. 
   Delphi ComboBox komponentini vazifasi?
   
2. 
   Delphi dasturi haqida tushuncha bering?
   
3. 
   Delphi dasturini imkoniyatlari ?
   
4. 
   Delphi dasturi qanday dastur?
   

Uyga vazifa: O’tilgan mavzuni o’qish

Mavzu:“ “Oddiy arifmetika trenajori” loyihasi.

Reja:

1. O’chirish va yoqish klyuchatellarini o’rnatish

2. ClickListBox komponentasi

Loyihani saqlash. Ilovani kompilyastiya qilish va ishga tushirish. Loyihani saqlashda Delphi bir necha fayl tashkil qiladi. Ayrimlari loyiha butun loyihani tavsiflashni, boshqalari forma va dastur modulini tavsiflashni o’z ichiga oladi. Agar hali saqlanmagan loyiha bo’lsa Fayl (File) menyusidan Soxranit proekt (Save Project) buyruғi beriladi va keyin dastur moduli va proekt nomi beriladi.

Loyihani baғlab bo’lgandan so’ng Compile menyusidan compile (Kompilirovat) buyruғi beriladi. Agar dasturda sintaktik xato bo’lmasa ekranda kompilyastiya to’ғri o’tganligi haqida xabar beriladi. Agar kompilyastiya dasturda qandaydir xatoni topsa xato haqida ekranga ma’lumot beradi. Kompilyastiyadan to’ғri o’tgan dastur uchun maxsus - .exe kengaytmali fayl tuzib beradi va u faylni Delphi sistemasisiz ishlatish mumkin.

Delphi sistemasidan chiqmasdan turib ilovani ishga tushirish mumkin, buning uchun Run menyusining Run buyruғini yoki F9 tugmachasini bosish kifoya bo’ladi. Yuqoridagi misol uchun ilova ishga tushirilib a, b va c qiymatlari kiritilib “xibob” tugmasi bosilsa dastur quyidagi natijani ekranga chiqadi.


Prostedura Tform1.Button2Click “yangi” tugmachasini sichqonchada chiqillatish bilan ishlaydi va taxrirlash maydoniga kursorni koeffistient qiymatlarini kiritish uchun olib kelib qo’yadi.

Prostedura Tform1.Button3Click “tamom” tugmachasini sichqonchada chiqillatish bilan ishlaydi va formani yopadi.

5.3.O’chirish va yoqish klyuchatellarini o’rnatish

RadioGroup pereklyuchatellari ilovalar yaratishda bir necha variantlardan birini tanlash uchun ishlatiladi. Bu komponenta Standart komponentalar palitrasida joylashgan bo’lib, u ko’rinishdagi piktogrammaga ega. Uning asosiy xossasi Items bo’lib, u peklchatellar nomlari ro’yxatini o’zida saqlaydi. Peklchatellar nomlari ro’yxatini kiritishda oldin RadioGroup pereklyuchatellari uchun formadan joy ajratiladi va keyin Items xossasi ko’rsatilib, undan uch nuqtali tugmacha bosiladi, natijada StringList Editor oynasi ochiladi. Bu oynadan peklchatellar nomlarining har qaysisi yangi qatordan kiritiladi va keyin Ok tugmasi bosiladi. Formaga RadioGroup pereklyuchateli joylashtilganda u RadioGroup1 nom bilan yoziladi. Bu nomni boshqa mos nomga almashtirish Caption xossasiga kirib amalga oshiriladi.

ClickListBox o’chirish klyuchateli ro’yxati ro’yxatdan bir nechasini tanlash imkonini beradi. ClickListBox komponentasi Additional palitrasida joylashgan. RadioGroup boғlik pereklyuchatellarni, ClickListBox esa boғliq bo’lmagan pereklyuchatellarni birlashtiradi. Bunda klyuchatel uch xil holatda bo’lishi mumkin:

-yoqilgan (vklyuchen) –to’ғri belgisi;

-o’chirilgan (vыklyuchen) –bo’sh belgisi;

-neytral holat –ko’kish rangda to’ғri belgisi.