Лабораторная работа: Знакомство с компонентами RadioGroup и CheckBox обработка строк типа String в среде Delphi

6. Сохраните проект и запустите программу на выполнение. Просмотрите результат программы, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.

Задание 4. Создайте приложение, которое предлагает ввести текст, а затем заменить символы «а» на «б» в тексте и подсчитать количество замен.

Решение:

1. Создайте папку «Замена символов» и сохраните в ней проект под названием «zamena», файл модуля сохраните как zmain.pas.

2. Форму приложения назовите «Подсчет и замена символов». На форме расположите три компонента Edit, три компонента Label, один компонент Button и два компонента CheckBox , как показано на рис. 3.3.

3. Задайте значения свойств: Label1. Caption – «Исходный текст на русском языке», Label2. Caption – «Измененный текст», Label3. Caption – «Число замен», Button1. Caption – «Выполнить», CheckBox1. Caption – «Подсчитать число замен», CheckBox2. Caption – «Заменить «а» на «б»». Удалите текст Edit1,2,3 из соответствующих компонентов.

Рис. 3.3 Пример формы проекта «Замена символов»

4. Для замены и подсчета символов запишите процедуру обработки события OnClick для кнопки «Выполнить». Введите следующее описание переменных:

Var

S : string ;

N : byte ;

Примечание: для поиска символа в строке используйте функцию Pos . Для программирования варианта замены символов используйте значение свойства Checked компонента CheckBox.

5. Тело процедуры может быть записано следующим образом:

Begin

N:= 0;

Edit3. Text:= ‘’;

Edit2. Text:= ‘’;

S:= Edit1. Text;

If CheckBox2. Checked then {есливключенфлажок}

While Pos (‘ a ’, S ) > 0 do {если в строке найдена буква «а»}

Begin

N := N + 1;

S [ Pos (‘ a ’, S )]:= ‘б’; {заменить букву «а» на букву «б»}

End;

If CheckBox1. Checked then Edit3. Text:= IntToStr(N);

{выводчислазамен}

Edit 2. Text := S ; {вывод измененного текста}

End ;