Разработка программы с инструкцией выборки case и компонентов TListBox

Лабораторная работа 4

Тема: разработка программы с инструкцией выборки case и компонентов TListBox.

Цель: изучить правило работы с компонентами TListBox.

Ход выполнения работы:

Задание:  разработать следующую программу:

- графический интерфейс: поле ввода строки неограниченной длины, TListBox – для хранения списка введенных строк,  кнопка для добавления строки из поля ввода в ListBox, поле ввода для ввода номера строки, кнопка ввода для выполнения основного алгоритма;

- логика программы: пользователь вводит в строку, затем добавляет ее в список, длина строки и количество строк в списке не ограничено. После того, как был сформирован список строк, пользователь может проанализировать любую строку из списка, указав ее номер. Анализ строки заключается в отсчете числа слов, входящих в строку. Разделителем считать любую последовательность пробелов.

Выполнение задания:

Рисунок 4.1 – Блок-схема программы

Листинг программы:

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add(Edit1.text);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

s: string;

b, n, i, ind: integer;

begin

b := StrToInt(Edit2.text);

n := 0;

ind := 0;

s := ListBox1.Items[b];

for i := 1 to Length(s) do

case ind of

0:

if s[i] <> ' ' then

begin

ind := 1;

n := n + 1;

end;

1:

if s[i] = ' ' then

ind := 0;

end;

ShowMessage('Количество слов: ' + FloatToStr(n));

end;

Рисунок 4.2 – Программа, подсчитывающая количество слов по указанному номеру строки