Лабораторна робота №6. Мета роботи: Створити форму „Обробка рядків типу String”

РОБОТА З РЯДКАМИ

Мета роботи: Створити форму „Обробка рядків типу String”.

Хід лабораторної роботи

1. Завантажити середовище візуального програмування Delphi.

2. Задати властивості форми: Caption, Height, Width, Color.

3. Вставити у форму три текстових поля: Label1, Label2, Label3 (рис.14).

4. Вставити у панель три прапорці (об’єкти CheckBox).

5. Вставити у форму три об’єкти типу Edit: Edit1, Edit2, Edit3 (рис.14). Очистити поля редагування Edit1, Edit2, Edit3.

6. Вставити у форму кнопку - об’єкт типу Button (рис.14).

7. Вставити у форму кнопку - об’єкт типу BitBtn.

8. Змінити заголовки Caption на об’єктах типу Label, CheckBox та Button (рис.15).

Рис.14 Рис.15

9. Змінити властивість Kind кнопки BitBtn на bkClose.

10. Запрограмувати кнопку Button1. Процедура матиме такий вигляд:

Procedure TForm1.Button1Click (Sender: TObject);

Var

s: string;

n:byte;

Begin

n:=0;

Edit2.Text:=’’;

Edit3.Text:=’’;

s:=Edit1.Text;

if CheckBox2.Checked then

while Pos(‘a’,s)>0 do begin

n:=n+1;

s[Pos(‘a’,s)]:=’o’;

end;

if CheckBox3.Checked then

while Pos(‘ ’,s)>0 do begin

n:=n+1;

s[Pos(‘ ’,s)]:=’-’;

end;

if CheckBox1.Checked then Edit3.Text:= IntToStr (n);

Edit2.Text:=s;

end;

11. Вставити поле редагування Edit та об’єкт типу CheckBox, змінити його заголовок Caption на „Добуток непарних чисел” та запрограмувати кнопку „Обчислити” відповідним чином.

12. Зберегти створену програму у своїй власній папці.

13. Виконати створену програму.

14. Створити exe - файл програми. Закрити Delphi і запустити створену програму.

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

1. Яке призначення функцій StrToInt та IntToStr?

2. Яке призначення процедур Delete та Insert?

3. Як працюють функції Concat, Pos, Length і Copy?

4. Яке призначення властивості Checked об’єкта CheckBox?

Поиск по сайту: