Delphi tilida

i:=i+l; 
a[i]:=StrToInt(Editl.text); 
Editl.SetFocus; 
end; 
procedure TForml.FormCreate(Sender: TObject); 

90 

begin 
i:=0; 
ListBoxl.Clear; 
end; 
procedure TForml.Button2Click(Sender: TObject); 
begin 

procedure TForml.EditlKeyDown(Sender: TObject;var key: Word; 

M i s o 15. 
Butun qiymatli A(10) massiv elementlari ichidan eng katta va eng 
kichiklari topilsin. Ilovada ComboBox komponentasini ishlating. 
Ye ch i sh 
1.Yangi ilova yaratamiz. 
2.Formaga Standart komponentalar palitrasidan ComboBox 
komponentasini ComboBoxl nombilan, Memo komponentasini Memol 
nom bilan va ikkita Bottonl va Botton 2 tugmalarini o‘rnatamiz. 
3.01dingi misol kabi bu komponentalarning xossalarini ham 
o‘rnatamiz va dastur kodlarini ham kiritamiz. Hamma dastur kodlari 
«kiritish» tugmasiga bogliq. ya’ni Bottonl moduli kodlari quyidagicha 
bo‘ladi. 

91 

4.Tuzilgan loyiha (npoeier) ya’ni Projectl va Unitl standart modul 
nomlarini mos nomlar bilan almashtirib saqlaymiz. 
5.Yangi nom bilan saqlangan proyekt, ya’ni ilova F9 tugmachasini 
bosish bilan ishga tushiriladi. 
Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda 
namoyon boladi. 

»r Fontii 

hrtassLVdane-ng kadjva&ncr kKhikd&mentni topish 
Kinbsh Yechish | 

; »
Etigk*na*F 60 

Etigk*thiy= 6 

5)