Buttonl (Add one) düyməsi üzərində mausun düyməsini basaraq yunitə əlavə edin: procedure TForml.ButtonlClick(Sender: TObject); begin ListBoxl.Items.Add(Editl.Text); end; Yunitə yazılmış bu yeganə sətir Editl komponentindən daxil edilən mətai ListBoxl siyahısına əlavə edir. Bu zaman siyahıya eyni sətirlər daxil edilə bilər. Bunun qarşısını almaq üçün həmin proseduru belə yaratmaq daha məqsədəuyğun olar: procedure TForml.ButtonlClick(Sender: TObject); Var s:String; begin if ListBoxl.Items.Count=0 then begin ShowMessage('Siyahı boşdur, sətri daxil edin!'); ListBoxl.Items.Add(Editl.Text); s:= ListBoxl.Items[ListBoxl.Items.Count-1]; Editl.ŞetFocus; Exit; end else s:= ListBoxl.Items[ListBoxl.Items.Count-1]; if s= Editl.Text then begin ShowMessage('Sətir təkrarlanır!'); Exit; end; ListBoxl.Items.Add(Editl.Text) ; end; Burada, Add one düyməsinə basdıqda yeni daxil edilən sətir özündən əvvəlki sətirlə müqayisə edilir. Əgər sətirlər eyni olarsa, Exit proseduru çağrılır və kodun yerinə yetirilməsi dayandındırılır. Başlanğıc anda, yəni siyahıda element olmadıqda (Count=0), Items massivinin indeksində qeyri-müəyyənlik olmaması üçün belə yoxlama boş siyahı üçün də yerinə yetirilir, bu haqda istifadəçi məlumatlandırıhr və mətnin daxil edilməsi üçün Editl komponentinə fokus verilir. Button2 (Add More) düyməsi üzərində mausun düyməsini iki dəra basaraq koda əlavə edin: procedure TForml.Button2Click(Sender: TObject); Var I:LongInt; begin for i:=0 to SpinEditl.Value do ListBoxl.Items.Add(IntToStr(i)+'_'+Editl.Text); end; Add More düyməsini basdıqda SpinEdit komponentində müəyyən edilmiş sətirlərin sayı qədər eyni sətir siyahıya əlavə edilir. Əyanilik üçün hər sətrin nömrəsi (...IntToStr(i))də siyahıya daxil ediləcəkdir.
