Задание 1. Размещаем на форме четыре кнопки Button для вставки, удаления элемента, для проверки, выделен ли элемент списка и для выхода из программы

Размещаем на форме четыре кнопки 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=" ";