Alqoritm, xassələri və təsvir üsulları

nömrəsi (...IntToStr(i))də siyahıya daxil ediləcəkdir.
Button3 (Del one) düyməsini iki dəfə basaraq yazm:
procedure TForml.Button3Click(Sender: TObject);
Var
Current I ndex: Long I nt; // Dəyişənin adı sərbəst seçilmişdir begin
Currentlndex:= ListBoxl.Itemlndex;
If ListBoxl.Itemlndex = -1 then Exit; ListBoxl.Items.Delete(Currentlndex) end;
Del one düyməsini basdıqda bu prosedur siyahıda seçilmiş sətri pozur. Əgər heç bir sətir seçilməmişdirsə, onda Exit proseduru çağrlır.
Button4 (Del All) düyməsini basdıqda ListBox siyahısında olan elementlər pozulmalıdır, bu kod belə yazılacaqdır:
procedure TForml.Button4Click(Sender: TObject);
begin
ListBoxl.Clear; end;
Button 5 (Count) düyməsi üçün bu kodu yazm:
procedure TForml.Button5Click(Sender: TObject);
Var m, 1: Longlnt; begin
m:= Memol.Lines.Count;
1:= ListBoxl.Items.Count; +
ShowMessage ('Memo Komponentində 'IntToStr(m) '+ sətir var +#13#10+ ListBox Komponentində'
+IntToStr(1)+' sətir var ');
Kodun təsvirindən onun yerinə yetirdiyi funksiya aydm olduğu üçün əlavə izaha ehtiyac görmürük.
Nəhayət, sonuncu Label (Ekvivalent) komponenti üzərində mausun düyməsini iki dəfə basaraq bu proseduru yaradın:
procedure TForml.LabellClick(Sender: TObject);
begin
Memol.Lines:= ListBoxl.Items; end;
Ekvivalent yazısı üzərində mausun düyməsini basdıqda ListBoxl komponentində olan elementlər Memo komponentinə köçürüləcəkdir.