Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 87 стр.

UptoLike

86
граммы и освободить область памяти, которая использовалась при
работе с файлом (буфер обмена). При изменении режима доступа к
файлу (от записи к чтению и наоборот) его следует закрыть и от-
крыть в требуемом режиме.
Схема формирования файла
var
F: file of T;
a: T;
begin
Assign(F, <путь к файлу и его имя>);
Rewrite(F); { Открытие файла для записисоздание
пустого файла }
<цикл формирования файла>
begin
<получить значение а>;
write(F, a); { записать а в конец файла }
end;
Close(F); { закрыть файл }
end.
Схема просмотра (использования файла)
var
F: file of T;
a: T;
begin
Assign(F, <путь к файлу и его имя>);
Reset(F); { Открытие файла для чтения,
файл уже существует }
while not Eof(F) do begin { пока не конец файла выполнять}
read(F, a); { прочитать данные из файла в переменную а }
<использовать а >;
end;
Close(F); { закрыть файл }
end.
граммы и освободить область памяти, которая использовалась при
работе с файлом (буфер обмена). При изменении режима доступа к
файлу (от записи к чтению и наоборот) его следует закрыть и от-
крыть в требуемом режиме.
   Схема формирования файла
    var
      F: file of T;
      a: T;
    begin
      Assign(F, <путь к файлу и его имя>);
      Rewrite(F); { Открытие файла для записи – создание
                    пустого файла }
      <цикл формирования файла>
      begin
          <получить значение а>;
          write(F, a); { записать а в конец файла }
      end;
      Close(F); { закрыть файл }
    end.
  Схема просмотра (использования файла)
    var
      F: file of T;
      a: T;
    begin
      Assign(F, <путь к файлу и его имя>);
      Reset(F); { Открытие файла для чтения,
                    файл уже существует }
     while not Eof(F) do begin { пока не конец файла выполнять}
        read(F, a); { прочитать данные из файла в переменную а }
         <использовать а >;
      end;
      Close(F); { закрыть файл }
    end.


                              86