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

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;
downloaded from KitabYurdu.org

---

196 
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;