Лабораторная работа №4
Создайте приложение,
предлагающее пользователю ввести строку, определяющее количество символов в ней
и выводящее результат, согласуя окончание слова «символов» с числом символов,
например, «В тексте 1 символ», «В тексте 32 символа», «В тексте 47 символов».
Вид
окна
приложения,
подсчитывающего
число
символов
в
тексте
Алгоритм выполнения работы
1. Создайте форму и
разместите на ней компоненты: Edit1, Label1, Label2, Button1, как показано на рис. 41.
2. Задайте значения свойств Label1.Caption — «Введите текст», Label2.Caption — «В тексте», Button1.Caption —
«Вычислить».
3. Удалите текст Edit1 из соответствующего компонента. Выровняйте компоненты на форме.
4. Для вычисления количества
символов во введенной строке и вывода результатов создайте процедуру
обработчика события щелчка мышью на кнопке Button1. Выберите в окне Инспектора объектов объект Button1, затем на
странице Событий произведите двойной щелчок мышью на пустом поле списка в
событии OnClick. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1.Button1Click (Sender: TObject);.
Рис.41. Вид
окна
приложения,
подсчитывающего
число
символов
в
тексте
Введите в текст процедуры следующее описание переменных:
var
N: integer; {последняя цифра}
S: string; {изменяемое
слово «символ»}
Введите в окне Редактора кода текст тела процедуры обработки текста:
begin
N:=Length(Edit1.Text); {определить число символов}
Label2.Caption: =
'В тексте ';
if N>20 then N:=N mod 10; {выделить
последнюю цифру}
case N of {в зависимости от последней
цифры}
1 : S:=' символ'; {изменять
окончание слова}
2..4 : S:=' символа';
0,5..20 : S:='
символов';
end;
Label2.Caption:=Label2.Caption+
IntToStr(Length(Edit1.Text))+ S; {вывести результат}
end;
5. Сохраните файлы проекта и
программного модуля, откомпилируйте и запустите
программу на выполнение.
6. Проверьте работу приложения,
задавая текст с разным количеством символов и проверяя правильность вывода
результатов работы.
Дополнительное задание 1.
Измените цветовое решение формы.