3.6 Файлы
____________________________________________________________________
при создании файла отсутствует контроль вводимых данных. Исправим этот недостаток. Воспользуемся следующим способом. Будем вводить количество менеджеров и количество компьютеров сначала в символьные переменные. За-
тем воспользуемся функцией Val() для преобразования строки в число. Как вы знаете, эта функция имеет специальный параметр и если при преобразова-
нии произошла ошибка, функция передает через этот параметр код ошибки. Ес-
ли преобразование прошло успешно, параметр равен нулю. Контролировать ввод будем в цикле для того, чтобы в случае ошибки при вводе дать возмож-
ность пользователю повторить ввод.
program create_files; {$mode objfpc}{$H+} uses
CRT, FileUtil, SysUtils; type
manager=record
name:string[18]; comp: integer; end;
var company:manager;
fmanager: File of manager; // Файловая переменная k: integer;
n: integer; code: integer;
str_n, str_comp: string; begin
AssignFile(fmanager,'File_manager.dat');
{Проверка существования файлов. Если файлы
246
Глава 3 Более сложные элементы языка
____________________________________________________________________
существуют, то они открываются для дозаписи.
Если нет, то создаются новые пустые файлы}
if not FileExists('File_manager.dat') then
Rewrite(fmanager)
else
Reset(fmanager);
Seek(fmanager, System.FileSize(fmanager));
while not Eof(fmanager) do
Read(fmanager, company);
while true do
begin
writeln(UTF8ToConsole('Введите количество менеджеров')); readln(str_n);
Val(str_n, n, code); if code = 0 then
break else
writeln(UTF8ToConsole('Ошибка! Повторите ввод')); end;
with company do begin
for k:= 1 to n do begin
writeln(UTF8ToConsole('Введите фамилию')); readln(name);
while true do begin
writeln(UTF8ToConsole('Введите количество компьютеров')); readln(str_comp);
247
3.6 Файлы
____________________________________________________________________
Val(str_comp, comp, code); if code = 0 then
break else
writeln(UTF8ToConsole('Ошибка! Повторите ввод')); end;
Write(fmanager, company); // запись в файл end;
end;
writeln(UTF8ToConsole('Информация на диск записана')); CloseFile(fmanager); writeln(UTF8ToConsole('Нажмите любую клавишу')); readkey;
end.
3.6.3.4. Процедуры для работы с нетипизированными файлами
В файлах любого типа чтение и запись данных производится порциями оп-
ределенной длины, называемых блоками или записями. В текстовых и типизи-
рованных файлах размер записей определяется автоматически. За этим следит операционная система, точнее, ее часть, называемая файловой системой. Для нетипизированных файлов программист сам должен следить за размером вво-
димых и выводимых записей. Обратите внимание, что в данном случае понятие
"запись" и тип данных в Паскале "запись" – это совершенно разные вещи. При операциях с файлами под записью понимается размер физического блока дан-
ных, которые записываются или считываются с внешнего устройства.
Нетипизированные файлы также являются файлами прямого доступа. К
ним применимы все те процедуры, которые используются для типизированных файлов, за исключением процедур ввода/вывода.
248
Глава 3 Более сложные элементы языка
____________________________________________________________________
Ввод/вывод в нетипизированных файлах осуществляется с помощью про-
цедур, имеющих следующий формат:
BlockRead(f, buf, count[, fact_count]);
BlockWrite(f, buf, count[, fact_count]);
Процедура BlockRead осуществляет чтение данных из дискового уст-
ройства, а процедура BlockWrite запись данных.
Здесь f – файловая переменная, buf – переменная, содержимое которой либо записывается в файл, либо данные из файла считываются в эту перемен-
ную, count – переменная целого типа, содержит количество записей, которые необходимо прочитать или записать, fact_count – необязательный параметр,
переменная целого типа, в нем содержится фактическое количество прочитан-
ных или записанных блоков данных.
Создать или открыть файл можно процедурами Rewrite или Reset, при этом в параметры процедур можно добавить необязательный параметр – размер записей, например:
Rewrite(f, 256);
Reset(f1, 1);
Этими процедурами создается файл f с длиной записи 256 байтов и от-
крывается файл f1 размер записи которой составляет 1 байт.
Если второй параметр не указан, то размер записи по умолчанию принима-
ется равным 128 байтам. Для обеспечения максимальной скорости обмена дан-
ными можно указывать размер записи кратной величине кластера дискового накопителя. Однако на практике пользуются размером записи всего в один байт, что позволяет обмениваться данными блоками любой длины.
Часто требуется определить размер памяти, занимаемый тем или иным объектом. Для этого используется функция SizeOf(x), которая возвращает количество байт, занимаемых аргументом x в памяти.
При написании нашей любимой программы – решения системы линейных
249
3.6 Файлы
____________________________________________________________________
алгебраических уравнений методом Гаусса введенные коэффициенты не сохра-
нялись. Перепишем программу так, чтобы введенные коэффициенты расши-
ренной матрицы сохранялись на диске. Программа записывает в нетипизиро-
ванный файл количество уравнений системы и коэффициенты расширенной
матрицы системы.
program Input_coeff; {$mode objfpc}{$H+} uses
CRT, FileUtil; var
matrix: File; temp: real;
i, j, n, count: integer;
begin
AssignFile(matrix, 'Coeff.dat');
{Создается нетипизированный файл. Длина блока 1 байт} Rewrite(matrix, 1);
writeln(UTF8ToConsole('Введите количество неизвестных')); readln(n);
{На диск будет записано count блоков длиной по 1 байту. Поскольку целый тип занимает 4 байта, будет записано 4 блока} count:= SizeOf (integer);
BlockWrite(matrix, n, count); {Поскольку вещественный тип real занимает 8 байт, будет записано 8 блоков по 1 байту}
count:= SizeOf (real);
{Ввод коэффициентов расширенной матрицы} for i:=1 to n do
begin
for j:=1 to n do begin
writeln(UTF8ToConsole('Введите a'), i, j); readln(temp);
BlockWrite(matrix, temp, count); end;
writeln(UTF8ToConsole('Введите b'), i); readln(temp);
{Можно сразу записать функцию SizeOf в качестве
250