КОРРЕКТИРОВКА ФАЙЛА ПРОИЗВОЛЬНОГО ДОСТУПА

Корректировка файла произвольного доступа заключается в изменении значений полей компонентов в целом или частично или расширении файла.

Для корректировки полей компонентов файла необходимо:

1) присвоить имя файлу (процедура Assign);

2) открыть корректируемый файл (процедура Reset);

3) подвести указатель файла к корректируемому компоненту (Seek);

4) считать корректируемый компонент (read);

5) откорректировать нужные поля;

6) повторить инструкцию подвода указателя (процедура Seek);

7) записать откорректированный компонент (оператор write);

8) закрыть файл (процедура Close).

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

Пример:

Рассмотрим корректировку отдельных полей записи. Пусть в нашем примере могут изменяться реквизиты "название книги" и "индекс книги". Запишем фрагмент программы, реализующий эти изменения по указанному пользователем номеру записи в файле.

Procedure KorrP;

Var

NewAvtor: string [16];

NewNazv: string[30];

New Index : integer;

begin

Writeln ('Дайте имя файла:');

Readln (FilName);

Assign ( BF, FilName);

Reset ( BF);

with RB do

begin

('Сколько записей будете корректировать?');

Readln (k);

For I : = 1 to k do

begin

Write ('Дайте номер корректир. записи:');

Readln (k1);

Write ('Дайте название книги’);

Readln (NewName);

Write ('Дайте индекс');

Readln (NewIndex);

Seek (BF, k1 - 1);

Read ( BF, RB);

Avtor:= NewAvtor;

Nazv:= NewNazv;

Index:= Newlndex;

Seek (BF, k1 - 1);

Write ( BF, RB);

end

end;

Close( BF)

end;

Все приведенные выше процедуры работы с файлом прямого доступа удобно объединить в одной программе. В этом случае процедуры вызываются из основной программы путем указания номера нужного режима в меню. После выполнения процедуры происходит возврат в основную программу. Выход из программы осуществляется, если указан режим 5.

Program DemoDF;

Const Razmer = 20;

Type

Books = record

Nomer : integer;

Avtor : string[16];

Nazv : string[30];

Index integer;

end;

Var

BF : file of Books;

RB : Books; k, k1 : integer;

I, Rej : integer;

FilName : string [12];

{$I 3: NFORM. PAS}

{$I 3: NZAGRKL.PAS}

{$I 3: NOBRKL.PAS}

{$I 3: KORR.PAS}

Begin

while True do

begin

writeIn ('Укажите режим: ');

writeln (‘ 1: форматизация ');

wnteln (' 2: загрузка по ключу’);

writeIn (‘ 3: обработка по ключу’);

writeIn (‘ 4: корректировка' );

writeln (' 5: выход из программы’);

readln (Rej);

case Rej of

1: Form;

2: Zapkl:

3: Obrkl;

4: KorrP;

5: Halt

end

end