Высокоуровневые методы информатики и программирования. Сивохин А.В - 63 стр.

               ('Создание типизированного файла', 'Введите число записей','1'));
      AssignFile(OrlovTypeFile, StrOrlovTypeFile);
      ReWrite(OrlovTypeFile);
      OrlovRecordForm:= TOrlovRecordForm.Create(Application);
      For I:=1 to TypeRecNum do
       Begin
        OrlovRecordForm.Show;
        Write(OrlovTypeFile, VarOrlovAuctionsRecord);
       End;
      {$I+}
      IOEorrorNum:=IOResult;
      If IOEorrorNum<> 0 then ShowMessage('Ошибка ввода вывода');
      CloseFile(OrlovTypeFile);
     end;
     к) для команд “Читать” типизированного файла:
     begin
      StrOrlovTypeFile := InputBox
                  ('Чтение типизированного файла','Введите имя файла,'*.rec');
      TypeRecNum         := StrToInt(InputBox
                 ('Чтение типизированного файла', 'Введите число записей','1'));
      AssignFile(OrlovTypeFile, StrOrlovTypeFile);
      ReSet(OrlovTypeFile);
      OrlovRecordForm:= TOrlovRecordForm.Create(Application);
      For I:=1 to TypeRecNum do
       Begin
        Read(OrlovTypeFile, VarOrlovAuctionsRecord);
       End;
       OrlovRecordForm.Show;
      {$I+}
      IOEorrorNum:=IOResult;
      If IOEorrorNum<> 0 then ShowMessage('Ошибка ввода вывода');

40