Упражнение №2 для обработки строк

Упражнение 2. Создайте приложение, предлагающее пользователю ввести строку текста, а затем заменяющее символы в тексте и подсчитывающее количество замененных символов. Вариант замены символов должен определяться по положению соответствующего флажка CheckBox. Создайте форму, для свойства Caption задайте значение «Подсчет и замена символов». На форме разместите компоненты: Editl, Edit2, Edit3, CheckBoxl, CheckBox2, CheckBox3, Labell, Label2, Label3, Buttonl. Задайте значения свойств Labell.Caption – «Исходный текст на русском языке», Label2.Caption – «Измененный текст», Label3.Caption – «Число замен», CheckBoxl.Caption – «Подсчитать число замен», CheckBox2.Caption – «Заменить «а» на «б»», СпескВох3. Caption – «Заменить пробелы на тире», Buttonl.Caption – «Выполнить». Удалите текст Editl, Edit2, Edit3 из соответствующих компонентов.

Замену символов в тексте и подсчет количества замененных символов опишите в процедуре обработчика события щелчка мышью на кнопке Buttonl. Для создания процедуры обработчика события выберите в окне Инспектора объектов объект Buttonl, затем на странице События произведите двойной щелчок на пустом поле списка в событии OnClick. После этого в окне Редактора кода в заготовку процедуры обработчика события procedure TForml.ButtonlClick (Sender: TObject); введите следующее описание переменных:

var
var S : string; {строка текста}
N : byte; {количество замен символов}

С учетом вышесказанного тело процедуры может быть записано следующим образом:

N:=0; {обнулить число букв а}
Edit3.Text: = «;
Edit2.Text: = «;
S:=Editl.Text; {присвоить S значение текстовой строки}
if CheckBox2.Checked then {если включен флажок CheckBox2}
while Pos(‘a’, S) > 0 do {если в строке найдена буква а}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos(‘a’, S)] := ‘б’; {заменить букву а буквой 6}
end;
if CheckBox3.Checked then
while Pos(‘ ‘, S) > 0 do {если в строке найден пробел}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos(‘ ‘, S)] := ‘-‘; {заменить пробел символом -}
End;
if CheckBoxl.Checked then Edit3.Text:=IntToStr(N); {вывод числа замен символов}
Edit2.Text:=S; {вывод измененного текста}
end;
Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение. Проверьте работу приложения, задавая различный текст на русском языке с разным количеством букв «а» и пробелов. Проверьте правильность вывода результатов работы и закройте окно приложения.
Добавить комментарий