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

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

____________________________________________________________________

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

Процедура Append(f) открывает файл для записи и позволяет добавлять новые элементы в конец файла.

Процедура Read(f, v)- считывает в переменную v очередной элемент текстового файла, соответствующего текущему положению указателя. Если производится считывание сразу в несколько переменных, то они разделяются запятыми, например:

Read(f, v1, v2, v3);

При этом после считывания значения элемента файла в последнюю пере-

менную списка (v3) указатель остается на месте. Допускается использование переменных разных типов.

Процедура Readln(f, v)- считывает в переменную v очередной эле-

мент текстового файла, соответствующего текущему положению указателя. Ес-

ли производится считывание сразу в несколько переменных, то они разделяют-

ся запятыми, например:

Readln(f, v1, v2, v3);

При этом после считывания значения элемента файла в последнюю пере-

менную списка (v3), оставшиеся элементы вплоть до символа eoln пропуска-

ются, а указатель сдвигается на следующую строку. В этом заключается отли-

чие Readln от Read.

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

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

Вызов процедуры в виде Readln(f) позволяет пропустить строку в файле, не считывая ее содержимого.

При использовании процедур Read и Readln происходит автоматиче-

ское преобразование прочитанных символов в типы тех переменных, которые

231

3.6 Файлы

____________________________________________________________________

указаны в списке ввода. При чтении переменных типа char выполняется чте-

ние одного символа и присваивание считанного значения переменной. При чте-

нии из файла значения строковой переменной, длина которой явно задана в ее объявлении, считывается столько символов, сколько указано в объявлении, но не больше, чем в текущей строке.

При чтении из файла значения строковой переменной, длина которой явно не задана в объявлении переменной, значением переменной становится остав-

шаяся после последнего чтения часть текущей строки.

Если одной инструкцией Readln осуществляется ввод нескольких, на-

пример, двух переменных, то первая переменная будет содержать столько сим-

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

ки или, если таких символов нет, не будет содержать ни одного символа (длина строки равна нулю).

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

Начиная с текущего положения указателя выделяются значащие символы до первого пробела, знака табуляции или признака конца строки. Полученная по-

следовательность символов считается символьным представлением числа и де-

лается попытка преобразования его во внутреннее представление числа (целого или вещественного, в зависимости от типа вводимой переменной). Если преоб-

разование прошло успешно, соответствующей переменной присваивается зна-

чение этого числа. В противном случае фиксируется ошибка, т.е. это означает,

что в символьном представлении числа встречается недопустимый символ. Та-

кие ошибки можно обработать программно. Способы фиксации и обработки ошибок ввода/вывода мы рассмотрим в разделе 3.6.3.5.

Процедура Write(f, v)- записывает значение переменной v в файл.

Здесь f по-прежнему файловая переменная. Если производится запись значе-

ний сразу нескольких переменных, то они разделяются запятыми, например:

Write(f, v1, v2, v3);

232

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

____________________________________________________________________

Процедура Writeln(f, v)- записывает значение переменной v в

файл и добавляет символ конца строки eoln. Если производится запись значе-

ний сразу нескольких переменных, то они разделяются запятыми, например:

Writeln(f, v1, v2, v3);

В текстовых файлах при записи происходит автоматическое преобразова-

ние типов переменных в списке вывода в их символьное представление.

Процедура Writeln(f) позволяет записать в файл пустую строку.

Чтобы проверить не является ли текущий элемент символом конца строки eoln можно использовать функции EoLn(f) и SeekEoLn(f). Функция

EoLn(f) проверяет только текущую позицию указателя на признак конца строки, а SeekEoLn(f) сначала пропускает пробелы и символы табуляции и лишь затем проверяет на признак конца строки.

Точно также функция SeekEof(f) сначала пропускает пробелы и симво-

лы табуляции и лишь затем проверяет файл на признак конца.

Рассмотрим снова программу из раздела 3.5.2.1. С этой программой, было неудобно работать, т.к. постоянная информация (фамилии, количество продан-

ных компьютеров) не сохранялась и при каждом запуске программы приходи-

лось заново их вводить. Проблема решается, если постоянную информацию со-

хранить на диске.

Напишем программу создания файлов на диске и добавления в них дан-

ных:

program create_files;

{$mode objfpc}

uses

{В модуле SysUtils содержится функция FileExists}

CRT, FileUtil, SysUtils;

var

name: TextFile; // Файловая переменная

233

3.6 Файлы

____________________________________________________________________

kol: TextFile; // Файловая переменная

comp, k, n:integer;

fam: string[18];

begin

AssignFile(name,'Name.txt');

AssignFile(kol,'Kol.txt');

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

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

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

if not FileExists('Name.txt') then

Rewrite(name)

else

Append(name);

if not FileExists('Kol.txt') then

Rewrite(kol)

else

Append(kol);

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

readln(n);

for k:=1 to n do

begin

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

readln(fam);

Writeln(name, fam); // запись в файл writeln(UTF8ToConsole('Введите количество компьютеров'));

readln(comp);

Writeln(kol, comp); // запись в файл

end;

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

234

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

____________________________________________________________________

CloseFile(name);

CloseFile(kol);

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

readkey;

end.

Напишем программу обработки файлов:

program manager; {$mode objfpc}{$H+} uses

CRT, FileUtil, SysUtils; var

name: TextFile; kol: TextFile;

sum, cost, prem, k: integer;

comp, sumc, sumv, sump, sum1: integer; fam: string[18];

begin

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

с данным проектом или сохраните сам проект в папке, где создан проект create_files.lpr}

if (not FileExists('Name.txt')) or

(not FileExists('Kol.txt')) then

begin

writeln(UTF8ToConsole('Файлы не существуют'));

writeln(UTF8ToConsole('Сначала создайте их'));

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

235

3.6 Файлы

____________________________________________________________________

readkey;

exit;

end;

begin

AssignFile(name,'Name.txt');

AssignFile(kol,'Kol.txt');

// файлы открываются для чтения

Reset(name);

Reset(kol);

end;

ClrScr;

GoToXY(6, 1);

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

GoToXY(14, 2);

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

GoToXY(1, 3);

GoToXY(1, 4);

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

GoToXY(1, 5);

while not Eof(name) do

236

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

____________________________________________________________________

begin

Readln(name, fam);

Readln(kol, comp);

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

sum1:=comp*prem; // сумма премиальных для одного менеджера sumc:=sumc+comp; // всего продано компьютеров sumv:=sumv+sum; // выручка от продажи всех компьютеров sump:=sump+sum1; // общая сумма премиальных

writeln;

writeln(fam); GoToXY(24, k + 6); write(comp); GoToXY(32, k + 6); write(sum); GoToXY(40, k + 6); write(sum1);

k:= k + 1; 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);

237

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