Создание оконного приложения

Для ввода строк и работы с ними использовать компоненту ComboBox. Ввод строки заканчивать нажатием клавиши Enter, для выхода использовать кнопку «Close». Панель диалога с результатами программы может иметь вид, представленный на рис. 7.1.

В тексте программы приведем только функции-обработчики:

//---------------------------------------------------------------------------

void __fastcall TForm1:: FormActivate (TObject *Sender)

{

Form1->ComboBox1->SetFocus(); // Передача фокуса ComboBox 1

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: ComboBox1KeyDown (TObject *Sender, WORD &Key,TShiftState Shift)

{

if (Key == 13) {

ComboBox1->Items->Add(ComboBox1->Text);

// Строка из окна редактирования заносится в ComboBox 1

ComboBox1->Text=""; // Очистка окна

}

}

//------------ Обработка нажатия кнопки мыши --------------------

void __fastcall TForm1:: ComboBox1Click (TObject *Sender)

{

int n, i, nst;

nst = ComboBox1->ItemIndex; // Определение номера строки

String st = ComboBox1->Items->Strings[nst]; // Запись выбранной строки st

if (st[1]!= ' ') n = 1; // Здесь и ниже ' ' – пробел

else n = 0;

for(i=1; i<st.Length(); i++) // Просмотр символов строки st

if(st[i] == ' ' && st[i+1]!= ' ') n++;

Edit1->Text = IntToStr(n); // Вывод числа слов в Edit 1

}

Рис. 7.1

Поиск по сайту: