3.6 Файлы

____________________________________________________________________

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

CloseFile(name);

CloseFile(kol);

readkey;

end.

Почему мы разделили эти программы на две самостоятельные? Чтобы от-

делить процесс ввода от непосредственно обработки. Так часто делают на прак-

тике. Ведь вводом данных может заниматься, например, оператор. Причем дан-

ные должны вводиться, по идее, каждый день. А программа выдачи сводных данных запускается один раз в месяц.

3.6.3.3. Процедуры для работы с типизированными файлами

ловая переменная, v- переменная того, же типа, что и элемент файла f.

Для типизированных файлов применение процедур Writeln и Readln

запрещены.

Типизированные файлы в отличие от текстовых являются файлами прямо-

го доступа, т.е. позволяют обратиться "сразу" к нужному элементу по его номе-

ру. Таким образом, в типизированных файлах все его элементы имеют свой но-

мер. Нумерация элементов файла начинается с 0.

Для перемещения по типизированному файлу применяется процедура

Seek. Формат вызова процедуры:

Seek(f, n);

Где f – файловая переменная, n – номер элемента в файле. Процедура

Seek просто устанавливает указатель на элемент с номером n.

238

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

____________________________________________________________________

Функция FilePos(f) возвращает текущую позицию указателя, т.е. но-

мер того элемента на который установлен указатель.

Функция FileSize(f) возвращает число элементов в файле.

Напишем программу предыдущего раздела с использованием типизиро-

ванных файлов. В том примере мы создали два файла, каждый элемент которых состоял только из одного поля.

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

лей, имеющих разные типы. Создадим один файл с именем "File_manager.dat",

Для этого сначала создадим тип данных запись следующей структуры:

type

manager = record

239

3.6 Файлы

____________________________________________________________________

name: string[18];

comp: integer;

end;

Программа создания и ввода данных в типизированный файл будет выгля-

деть следующим образом:

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; begin

AssignFile(fmanager,'File_manager.dat');

{Проверка существования файлов. Если файлы

существуют, то они открываются для дозаписи.

Если нет, то создаются новые пустые файлы}

if not FileExists('File_manager.dat') then

Rewrite(fmanager)

else

240

Глава 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