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

     begin
     StrOrlovTypeFile := InputBox
                  ('Создание типизованного файла','Введите имя файла','*.rec');
      TypeRecNum         := StrToInt(InputBox
                ('Создание типизованного файла', 'Введите число записей','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;

     procedure TOrlovFileForm.miReadTypeFileClick(Sender: TObject);
     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('ошибка ввода вывода');

      CloseFile(OrlovTypeFile);

     end;


82