Рис.41. Вид окна приложения, подсчитывающего число символов в тексте
Введите в текст процедуры следующее описание переменных:
var
N: integer; {последняя цифра}
S: string; {изменяемое слово «символ»}
Введите в окне Редактора кода текст тела процедуры обработки текста:
begin N:=Length(Edit1.Text); {определить число символов}
Label2.Caption: = 'Втексте '; ifN>20 thenN:=Nmod 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.
Измените цветовое решение формы. Лабораторная работа №5 Создайте приложение, предлагающее пользователю ввести строку текста, а затем заменяющее символы в тексте и подсчитывающее количество замененных символов.
Рис. 5.1. Вид окна приложения, выполняющего замену символов в тексте
6. Замену символов в тексте и подсчет количества замененных символов опишите в процедуре обработчика события щелчка мышью на кнопке Button1. Для создания процедуры обработчика события выберите в окне Инспектора объектов объект Button1, затем на странице События произведите двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода в заготовку процедуры обработчика события procedure TForm1.Button1Click(Sender: TObject); введите следующее описание переменных: