Мансуров. Основы программирования в среде Lazarus. 2010

Глава 3 Более сложные элементы языка

____________________________________________________________________

Reset(fmanager);

Seek(fmanager, System.FileSize(fmanager));

while not Eof(fmanager) do

Read(fmanager, company);

writeln(UTF8ToConsole('Введите количество менеджеров')); readln(n);

with company do begin

for k:= 1 to n do begin

writeln(UTF8ToConsole('Введите фамилию')); readln(name);

writeln(UTF8ToConsole('Введите количество компьютеров')); readln(comp);

Write(fmanager, company); // запись в файл end;

end;

writeln(UTF8ToConsole('Информация на диск записана'));

CloseFile(fmanager);

writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

end.

Обратите внимание, процедура

Seek(fmanager, System.FileSize(fmanager));

переводит указатель на конец файла, что позволяет производить дозапись эле-

ментов в конец файла. Также обратите внимание на вызов функции

FileSize(). Имейте в виду, что существуют две версии функции

241

3.6 Файлы

____________________________________________________________________

FileSize():

function FileSize(const Filename: string): int64; function FileSize(var f: File): int64;

Первая функция описана в модуле FileUtil, она возвращает полный объем файла в байтах. А вторая описана в модуле System, она возвращает количест-

во записей в файле. Нам нужна именно вторая функция, поэтому мы перед именем файла указываем имя модуля System, а затем через точку имя функ-

ции.

Напишем программу выдачи сводных данных. Поскольку мы собираемся в дальнейшем использовать созданный типизированный файл менеджеров и про-

грамму вывода сводной ведомости на экран, оформим эту программу в виде модуля. Тогда программа будем выглядеть таким образом:

unit OutScr; interface uses

CRT, Classes, FileUtil, SysUtils, LCLProc; procedure output_to_screen(var name_file: string); implementation

procedure output_to_screen(var name_file: string); type

manager= record name: string[18]; comp: integer;

end; var

company: manager;

sum, cost, prem, k: integer;

242

Глава 3 Более сложные элементы языка

____________________________________________________________________

sumc, sumv, sump, sum1: integer; fmanager: File of manager;

begin

Assign(fmanager, name_file);

Reset(fmanager);

ClrScr;

GoToXY(6, 1);

write(UTF8ToConsole('Сведения о реализации компьютеров')); GoToXY(14, 2);

write(UTF8ToConsole('за январь 2010 г.')); GoToXY(1, 3);

GoToXY(1, 4);

write(UTF8ToConsole(' Фамилия Количество Выручка Премия'));

GoToXY(1, 5);

with company do begin

while not Eof(fmanager) do begin

Read(fmanager, company);

sum:= comp * cost; // сумма выручки для одного менеджера

243

3.6 Файлы

____________________________________________________________________

sum1:= comp * prem; // сумма премиальных одного менеджера sumc:= sumc + comp;

sumv:= sumv + sum; sump:= sump + sum1; writeln; writeln(name); GoToXY(24, k + 6); write(comp); GoToXY(32, k + 6); write(sum); GoToXY(40, k + 6); write(sum1);

k:= k + 1; end;

end;

GoToXY(1, k + 6);

244

Глава 3 Более сложные элементы языка

____________________________________________________________________

Скопируйте полученные после компиляции объектные модули (с расши-

рением OutScr.o и OutScr.ppu) в папку, где находятся ваши часто исполь-

зуемые модули, например в папку my-units (см. раздел 3.5.1).

Программа, использующая этот модуль, будет такой:

program manager_computer; uses

CRT, SysUtils, FileUtil, OutScr; var

name_file: string; begin

{При необходимости укажите полный путь к файлам или скопируйте эти файлы в папку с данным проектом или сохраните сам проект

впапке, где создан проект create_files.lpr} name_file:='File_manager.dat'; if not FileExists(name_file) then begin

writeln(UTF8ToConsole('Файлы не существуют')); writeln(UTF8ToConsole('Сначала создайте их')); writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

exit;

end;

output_to_screen(name_file);

writeln(UTF8ToConsole('Нажмите любую клавишу'));

readkey;

end.

Проанализировав нашу программу, мы вынуждены констатировать, что

245

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