Мансуров. Основы программирования в среде Lazarus. 2010
.pdfГлава 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);
write('------------------------------------------------ |
'); |
GoToXY(1, 4);
write(UTF8ToConsole(' Фамилия Количество Выручка Премия'));
GoToXY(1, 5);
write('------------------------------------------------ |
'); |
cost:= 1000; |
// стоимость компьютера |
prem:= 25; |
// размер премии |
sumc:= 0; |
// Общее количество компьютеров |
sumv:= 0; |
// Общая сумма выручки |
sump:= 0; |
// Общая сумма премии |
k:= 0; |
// Отслеживает текущую строку на экране |
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);
write('------------------------------------------------ |
'); |
GoToXY(17, k + 7); |
|
write(UTF8ToConsole('Итого:')); |
|
GoToXY(24, k + 7); |
|
write(sumc); |
|
GoToXY(32, k + 7); |
|
write( sumv); |
|
GoToXY(40, k + 7); |
|
write(sump); |
|
GoToXY(1, k + 9); |
|
CloseFile(fmanager); |
|
end; |
|
end. |
|
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