4. Текст модуля UnStr

Unit UnStr;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs

StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label2: TLabel;

Label3: TLabel;

BitBtn1: ТВitBtn;

ComboBox1: TComboBox;

Label1: TLabel;

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox1Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

{$R *.DFM}

// Обробка події активізації Форми

procedure TForm1.FormActivate(Sender: TObject);

begin

ComboBox1.SetFocus; // передача фокусу введення ComboBox1

end;

// Обробка події введення символу і натиснення клавіші Enter

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then // якщо натискання клавіші Enter то

begin // рядок з поля редагування заноситься

ComboBox1.Items.Add(ComboBox1.Text); // в список вибору

ComboBox1.Text:=''; // очищення вікна редагування

end;

end;

// Обробка події натиснення клавіші "миші" в списку вибору

procedure TForm1.ComboBox1Click(Sender: TObject);

var

-й : string;

n,i,nst,ind: integer;

begin

n:=0; // n містить кількість слів

ind:=0;

nst:=ComboBox1.ItemIndex; // визначення номера вибраного рядка

-й:=ComboBox1.Items[nst]; // -й привласнюється вибраний рядок

for i:=1 to Length(-й) do // перегляд всіх символів рядка

case ind

0 : if -й[i]<>' ' then // якщо зустрівся символ

begin

ind:=1;

n:=n+1; // кількість слів збільшується на одиницю

end;

1 : if -й[i]=' ' then // якщо зустрівся пропуск

ind:=0;

end;

Label3.Caption:=IntToStr(n); // виведення кількості слів в Label3

end;

end.

5.Виконання індивідуального завдання:

У всіх завданнях початкові дані вводити за допомогою компоненту Edit в компонент ListBox, або за допомогою властивості Text у властивість Items компоненту ComboBox. Результат виводити за допомогою компоненту Label. Введення рядка закінчувати натисненням клавіші Enter. Робота програми-додатку повинна завершуватися натисненням кнопки Close.

Для перевірки функціонування програми-додатку підготувати декілька тестів.

Індивідуальні завдання:

1. Даний рядок, що складається з груп нулів і одиниць. Кожна група відділяється один від одного одним або декількома пропусками. Знайти кількість груп з п'ятьма символами.

2. Даний рядок, що складається з груп нулів і одиниць. Кожна група відділяється один від одного одним або декількома пропусками. Знайти і вивести на екран найкоротшу групу.

3. Даний рядок, що складається з груп нулів і одиниць. Кожна група відділяється один від одного одним або декількома пропусками. Підрахувати кількість символів в щонайдовшій групі.

4. Даний рядок, що складається з груп нулів і одиниць. Кожна група відділяється один від одного одним або декількома пропусками. Знайти і вивести на екран групи з парною кількістю символів.

Вимоги до оформлення звіту :

Звіт повинен містити:

1. Тему та мету лабораторної роботи.

2. Завдання на лабораторну роботу.

3. Текст програми.

4. Відповідь на контрольні запитання.

Контрольні запитання:

1. Що таке компонент ListBox?.

2. Що таке компонент ComboBox?.

3. Властивості компонента ListBox?.

4. Властивості компонента ComboBox?.

5. Як створюється процедура обробки подій?.

6. Що таке компонент BitBtn?.

7. Властивості компонента BitBtn?.

8. Як збільшити кількість слів на одиницю?

9. Як визначити номера вибраного рядка?