void
__fastcall TForm1::ListBox1Click(TObject
*
Sender)
{
AnsiString str;
str = ListBox1 -> Items -> Strings[ListBox1 -> ItemIndex];
ShowMessage(str);
}
// ---------------------------------------------------------------------------
{
AnsiString str;
str = ListBox1 -> Items -> Strings[ListBox1 -> ItemIndex];
ShowMessage(str);
}
// ---------------------------------------------------------------------------