Робота з текстовими та типованими файлами

Мета роботи: Ознайомитись з процедурами та функціями для роботи з текстовими та типова ними файлами. Створити дві форми „Мої друзі” та „Створення та обробка типованого файлу”.

Хід лабораторної роботи (частина перша)

1. За допомогою текстового редактора створити текстовий файл з даними про 10 друзів (прізвище, ім’я, день народження). Дані у файл уведіть у стовпчики так: прізвище та ім’я – по 12 символів, дата народження – 10 символів, наприклад,

1-а позиція 13-а позиція 25-а позиція

Огарков Вадим 25.03.1989

Шевченко Сергій 13.07.1988

Петренко Катерина 24.04.1989

Ці дані вивести на форму „Мої друзі”.

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

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

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

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

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

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

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

Рис.16 Рис.17

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

10. Властивість Enabled для кнопок Button2, Button3, Button4 задати як False.

11. Перед тим, як програмувати кнопки Button1, Button2 тощо, необхідно у розділі описування змінних задати змінні f, pr, im, dn, де f – текстовий файл, pr, im, dn – прізвище, ім’я та дата народження відповідно:

Var

Form1: TForm;

f:textfile;

pr,im:string[12];

dn:string[10];

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

Procedure TForm1.Button1Click (Sender: TObject);

Begin

assignfile(f,’f1.txt’);

reset(f);

read(f,pr,im,dn);

Edit1.Text:=pr;

Edit2.Text:=im;

Edit3.Text:=dn;

Button2.Enabled:=true;

Button3.Enabled:=true;

Button4.Enabled:=true;

end;

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

Procedure TForm1.Button2Click (Sender: TObject);

Begin

reset(f);