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

      If IOEorrorNum<> 0 then ShowMessage('ошибка ввода вывода');

       CloseFile(OrlovTextFile);
     end;

     procedure TOrlovFileForm.miEditClick(Sender: TObject);
     begin
     If OrlovFontDialog.Execute then
       OrlovRichEdit.SelAttributes.Assign(OrlovFontDialog.Font);
       OrlovRichEdit.SetFocus;
     end;

     procedure TOrlovFileForm.miReadTextFileClick(Sender: TObject);
     begin

      StrOrlovTextFile := InputBox
                  ('Чтение текстового файла','Введите имя файла','*.txt');
      TextRecNum         := StrToInt(InputBox
                ('Чтение текстового файла', 'Введите номер записи','1'));
      AssignFile(OrlovTextFile, StrOrlovTextFile);
      ReSet(OrlovTextFile);

      For I:=1 to TextRecNum do
       Begin
        With VarOrlovAuctionsRecord do
         begin
           ReadLn(OrlovTextFile, ID_Auctions);
           ReadLn(OrlovTextFile, Date_U);
           ReadLn(OrlovTextFile, Place);
           ReadLn(OrlovTextFile, Specifics);

          end;
        ReadLn(OrlovTextFile);
       End;
      {$I+}
      IOEorrorNum:=IOResult;
      If IOEorrorNum<> 0 then ShowMessage('ошибка ввода вывода');

      OrlovRecordForm:= TOrlovRecordForm.Create(Application);
      OrlovRecordForm.Show;

      CloseFile(OrlovTextFile);


     end;

     procedure TOrlovFileForm.miWriteTypeFileClick(Sender: TObject);
81