9.Kiritish fokusi Editl kiritish qatorida turishi uchun uni ikki marta
bosib kodlarni yozish oynasiga o‘tamiz va quyidagini kiritamiz:
10.Tuzilgan loyiha (npoeK T) ya’ni Projectl va Unitl standart modul
nomlarini mos nomlar bilan almashtirib saqlaymiz.
11.Yangi nombilan saqlanganproyekt, ya’ni ilova F9 tugmachasini
bosish bilan ishga tushiriladi.
Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda
namoyon boladi.
1.f Fnml
Ma-i-2i'.'dan eng katta va eng kichik eleinentaitopish
1
Massiv elementining qiymatlarini kiritib, «Yechish» tugmasini
bosamiz va quyidagi natijaga ega bolamiz.
ufFmtil
Masstvdan eng katta va eng kichik clementni
F
|- in| :N
3
22
ListBoxl: TListBox;
Buttonl: TButton;
Button2: TButton;
Editl: TEdit;
Memol: TMemo;
Labell: TLabel;
procedure FormCreate(Sender: TObject);
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure EditlKeyDown(Sender: TObject;var key: Word;
ListBoxl.Items.Add(Editl.text);
Dostları ilə paylaş: