Размещаем на форме четыре кнопки Button для вставки, удаления элемента, для проверки, выделен ли элемент списка и для выхода из программы, компоненту Editдля ввода вставляемого элемента списка и компоненты Labelи StaticTextдля вывода результатов.
void __fastcall TForm1::NewBtnClick(TObject *Sender)
{
ListBox1->Sorted=true;
/*После вставки элементы списка будут рассортированы. */
ListBox1->Items->Add(Edit1->Text);
/* Добавление элемента в список из Edit. */
StaticText1->Caption="Bcego "+
IntToStr(ListBox1->Items->Count);
/* Count – количество элементов списка. */
Label1->Caption=" "; Label2->Caption=" ";
}
void __fastcall TForm1::DelBtnClick(TObject *Sender)
{
int ind2; /* Номер выделенного элемента. */
ind2=ListBox1->ItemIndex;
if (ind2>-1) /* Удаление выделенного элемента */.
ListBox1->Items->Delete(ind2);
else ShowMessage(" Hichego ne videleno ");
StaticText1->Caption="Bcego "+
IntToStr(ListBox1->Items->Count);
Label1->Caption=" "; Label2->Caption=" ";