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

     If           OrlovFontDialog.Execute      then      OrlovRichEdit.SelAttributes.Assign
(OrlovFont.Font);
     OrlovRichEdit.SetFocus;
     е) для команды “Закрыть”:
     OrlovFileForm.Close;
     ж) для команды “Писать” текстового файла:
     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, Data_U);
              WriteLn(OrlovTextFile, Place);
              WriteLn(OrlovTextFile, Specifics);
            end;
           WriteLn(OrlovTextFile);
          End;
          {$I+}
          IOEorrorNum:=IOResult;
          If IOEorrorNum<> 0 then ShowMessage('Ошибка ввода вывода');
          CloseFile(OrlovTextFile);
     end;

38