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

     end;

     procedure TOrlovFileForm.miClearClick(Sender: TObject);
     begin
      OrlovRichEdit.Clear;
     end;

     procedure TOrlovFileForm.miSaveClick(Sender: TObject);
     begin
       OrlovRichEdit.Lines.SaveToFile(OrlovOpenDialog.FileName);
     end;

     procedure TOrlovFileForm.miSaveAsClick(Sender: TObject);
     begin
       if OrlovSaveDialog.Execute then
      (OrlovRichEdit.Lines.SaveToFile(OrlovSaveDialog.FileName));
     end;

     procedure TOrlovFileForm.miExitClick(Sender: TObject);
     begin
      OrlovFileForm.Close;
     end;

     procedure TOrlovFileForm.miWriteTextFileClick(Sender: TObject);
     begin
     StrOrlovTextFile := InputBox
                  ('Создание текстового файла','Введите имя файла','*.txt');
      TextRecNum         := StrToInt(InputBox
                ('Создание текстового файла', 'Введите число записей','1'));
      AssignFile(OrlovTextFile, StrOrlovTextFile);
      Rewrite(OrlovTextFile);
      OrlovRecordForm:= TOrlovRecordForm.Create(Application);

      For I:=1 to TextRecNum do
       Begin
        OrlovRecordForm.Show;
        With VarOrlovAuctionsRecord do
         begin
           WriteLn(OrlovTextFile, ID_Auctions);
           WriteLn(OrlovTextFile, Date_U);
           WriteLn(OrlovTextFile, Place);
           WriteLn(OrlovTextFile, Specifics);
         end;
        WriteLn(OrlovTextFile);
       End;
      {$I+}
      IOEorrorNum:=IOResult;
80