Лабораторна робота №12

Лабораторна робота №12

Тема: Робота з файлами.

Мета: Отримання практичних навиків використання типізованих файлів,

побудова форм в ході виконання програми, використання компонента SpinEdit

(редактор числа) із сторінки палітри компонентів Samples.

Теоретичні відомості

Текстові файли – це файли в яких знаходиться текстова інформація

(набір рядків з символів). Текстова інформація складається не обов'язково з букв, в ній можуть міститися будь-які символи з таблиці ASCII.

Типізовані файли – це файли в яких знаходиться інформація будь-якого роду. Але структура такої інформації обов'язково повинна повторюватися.

Назву типізованого файлу, отримав через те, що в ньому зберігається однотипна інформація. Один рядок типу називається записом типізованого файлу.

Примітка

Типізовані файли дуже часто використовуються для опису яких-небудь списків інформації, наприклад, телефонних довідників. Кожен запис даного списку може складатися, наприклад, з номера телефону абонента, імені, адреси.

Нетипізовані файли - це файли, що містять послідовність байт без якої-

небуть структури. Наприклад, це може бути закодований або стислий блок інформації. При роботі з таким файлом вся інформація розглядається як набір окремих шматків по N байт, де значення N задається програмістом в діапазоні від 1 до 65535. В процесі роботи для будь-якого файлу потрібно виконувати послідовність наступних дій:

Міняти місцями пункти не можна.

1

Для кожного файлу є поняття - поточне положення у файлі, тобто це те положення, в якому на даний момент йде обробка інформації. Наприклад, у

типізованому файлі, можна прочитати перший запис, потім другий і т.д. У

такому разі поточним положенням у файлі спочатку буде перший запис, потім другий, потім третій.

Постановка завдання

Написати програму тестування, яка задовольняє наступним вимогам:

1.Кількість питань тесту може варіювати від 5 до 20.

2.Для кожного питання мають бути передбачене чотири варіанти відповіді.

3.В результаті тестування має бути виставлена оцінка (незадовільно,

задовільно, добре, відмінно) залежно від кількості правильних відповідей.

4.Питання і відповіді тесту повинні знаходитися у файлі.

5.У програмі має бути заблокована можливість повернення до попереднього питання.

Новим в цій програмі є:

•використання типізованих файлів,

•побудова форм в ході виконання програми,

•використання компонента SpinEdit (редактор числа) із сторінки палітри компонентів Samples.

2. Інформаційна постановка завдання

В умові завдання сказано, що для зберігання використовується файл. У Delphi

підтримує три різні підходи для роботи з файлами, для різного типу інформації бажано використовувати найбільш відповідний підхід.

Структура інформації

В нашому завданні одиницею інформації буде питання, яке у свою чергу складатиметься з тексту питання, чотирьох варіантів відповіді і чотирьох покажчиків правильності відповіді. Таким чином, можна ввести тип, що описує питання.

2

необхідно помістити у файл. Тому інформація у файлі розташовуватиметься таким чином:

Перший запис містить назву тесту, все подальші записи - інформацію про питання. В результаті кількість записів у файлі буде на одну більше, ніж кількість питань в тесті. Для формування тесту будемо використовувати масив:

Const KOL = 21; // Max кількість питань

Var TEST_: Array [1..KOL] of TTEST; // Масив тесту

Опис файлу

При оголошенні файлової змінної типізованих файлів, вказується тип даних, що

містяться у файлі.

Var FFile: File of TTEST; // Опис файлу

Для читання або запису файлів такого типу можливе використання лише операторів Read і Write. Readln і Writeln використовувати не можна, оскільки дані у файлі це не рядки тексту, тобто немає ліній.

Дані у типізованому файлі зберігаються у внутрішньому машинному вигляді. Тому створювати файл і читати інформацію з нього можна лише за допомогою програми, яка «знає» структуру даних. Для цього ми створимо дві програм. Перша відповідатиме за створення тесту, а друга - тестування.

3. Програма створення тесту

Відкрийте новий проект і розмістіть у формі компоненти відповідно до рис.12.1

4

6

Збережіть проект. У подальшому зберігайте проект і перевіряйте його працездатність після кожної зміни. Не прагніть розташовувати компоненти на свої місця. Це зробимо в програмі при створенні форми. Для цього виділіть об'єкт Form1, перейдіть на вкладку Events Інспектора об'єктів (Object Inspector), знайдіть подію OnCreat, праворуч від нього двічі клацнути лівою кнопкою миші. Попавши в код програми, треба написати наступний код:

Var Left_N : Integer; // Відступ зліва верхньої частини

Top_N : Integer; // Відступ зверху

Left_NN: Integer; // Відступ зліва для розділу відповідей

Top_NN : Integer; // Отступ сверху для RadioButton K, I K,I:Integer;

. . .

Left_N:=30;

Top_N:=50;

Left_NN:=60;

// Формування елементів форми

Form1.Width:=740;

Form1.Height:=540;

Form1.Caption:='Створення тесту';

Label1.Left:=Left_N;

Label1.Top:=Top_N;

Label1.Font.Style:=[fsBold];

Label1.Font.Size:=10; Label1.Caption:='Назва тесту'; Edit1.Text:=' ';

Edit1.Top:=Top_N;

Edit1.Left:=Left_N+Label1.Width+10;

Edit1.Width:=300;

Top_N:=Top_N+40;

Label2.Left:=Left_N; Label2.Top:=Top_N; Label2.Font.Style:=[fsBold]; Label2.Font.Size:=10; Label2.Caption:='Кількість питань'; SpinEdit1.Left:=Left_N+Label2.Width+10;

7

згрупувати - Label + Edit + RadioButton (для кожної відповіді). Компоненти кожного рядка відрізнятимуться лише значенням властивості Тор і своїми номерами. Компоненти розподіляться по рядках таким чином:

1-ий рядок - Label5, Edit3, RadioButton1

2-ий рядок - Label6, Edit4, RadioButton2

3-ий рядок - Label7, Edit5, RadioButton3

4-ий рядок - Label8, Edit6, RadioButton4

Тому виникає питання: «Яким чином можна перераховувати в програмі імена компонентів послідовно, наприклад, переходячи від Label5 до Label6,

потім до Label7?»

Це можна зробити, якщо скористатися методом FindComponent. Він повертає покажчик екземпляра компоненти, про яку відомо. Допустимо, що форма містить екземпляр компоненти TLabel з ім'ям Label2. Щоб отримати покажчик на екземпляр Label2 і змінити властивість Caption, можна записати:

K:=2;

TLabel(FindComponent('Label'+IntToStr(K))).Caption:= 'МІТКА';

Отже, для формування рядків варіантів відповідей в програму можна додати

текст:

// Формування розділу відповідей K:=2;

Top_NN:= -20;

For I:=1 To 4 do begin

Top_N:=Top_N+40;

Top_NN:=Top_NN+40;

TLabel(FindComponent('Label'+IntToStr(K+I+2))).Left:=Left_NN; TLabel(FindComponent('Label'+IntToStr(K+I+2))).Top:=Top_N; TLabel(FindComponent('Label'+IntToStr(K+I+2))).Font.Size:=9; TLabel(FindComponent('Label'+IntToStr(K+I+2))).Caption:='Відп овідь №'+IntToStr(I); TEdit(FindComponent('Edit'+IntToStr(K+I))).Text:=''; TEdit(FindComponent('Edit'+IntToStr(K+I))).Top:=Top_N;

9

TEdit(FindComponent('Edit'+IntToStr(K+I))).Left:=200;

TEdit(FindComponent('Edit'+IntToStr(K+I))).Width:=400;

TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Left:=

40;

TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Top:=T

op_NN;

TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Captio

n:=' ';

TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Width:

=10;

end;

І в кінці додаємо блок формування трьох кнопок.

// Формування нижньої частини форми

Top_N:=Top_N+70;

Button1.Caption:='Попередня';

Button1.Left:=Left_NN+100;

Button1.Top:=Top_N;

Button1.Width:=100;

Button1.Height:=30;

Button1.Enabled:=False;

Button2.Caption:='Наступна';

Button2.Left:=Left_NN+250;

Button2.Top:=Top_N;

Button2.Width:=100;

Button2.Height:=30;

Button3.Caption:='Записати';

Button3.Left:=Left_NN+500;

Button3.Top:=Top_N;

Button3.Width:=100;

Button3.Height:=30;

Button3.Enabled:=False;

STEP:=1; //Номер вопроса = 1

10