Реферат Програми для роботи з великим обсягом інформації, записаної в файлах

then Result: = False;: = Result and ( d. day in [1. CountDaysInMonth (d. month, d. year)] )

end;

// зміна інформації про фото

procedure EditCatalog (var f: TCatalog);

begin InputQuery ('Змінити ім'я файлу?') then

repeat

Writeln ('Введіть нове ім'я');

Readln (f. name);

if f. name ='' then

ShowMessage ('Помилка! Ім'я не повинно бути порожнім! Повторіть введення!'); until f. name <>'';

if InputQuery ('Змінити спеціалізацію файлу?') then ('Введіть нову спеціалізацію');

Readln (f. special);

end; InputQuery ('Змінити дату створення файлу?')

then InputDate (f. create);

if InputQuery ('Змінити кількість блоків?') then ('Введіть нову кількість блоків');

Readln (f. blocks);

if f. blocks <0 then

ShowMessage ('Розмір файлу має бути позитивним! Повторіть введення!'); until f. blocks> = 0;

end;. // UElem

Додаток 3. Модуль UFile

unit UFile;// процедури для роботи з файлами

interface SysUtils, HelpUtils, UElem, Windows;

type

TFile = file of TCatalog;

// створення файлу NewFile (var f: TFile; var FileName: string);

// Відкриття файлу