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;
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.
Misal. İki sadə siyahı arasında əlaqənin təşkili.
Ms Windows-da, xüsusən Ms Excel və Ms Access-4ə bir çox hallarda bir siyahıdan müəyyən əlamətlərə görə elementlər seçilərək digər siyahıda yerləşdirilir və ya geri qaytarılır. Bu məsələni proqramlaşdıraq. Bunun üçün formaya iki ListBox, iki Label və iki Button düymələri yerləşdirin.