Материал: Мансуров. Основы программирования в среде 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