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

       miReadTextFile: TMenuItem;
       miWriteTypeFile: TMenuItem;
       miReadTypeFile: TMenuItem;
       miExit: TMenuItem;
       OrlovPanel: TPanel;
       OrlovColorDialog: TColorDialog;
       OrlovFontDialog: TFontDialog;
       OrlovRichEdit: TRichEdit;
       miEdit: TMenuItem;
       procedure miOpenClick(Sender: TObject);
       procedure miClearClick(Sender: TObject);
       procedure miSaveClick(Sender: TObject);
       procedure miSaveAsClick(Sender: TObject);
       procedure miExitClick(Sender: TObject);
       procedure miWriteTextFileClick(Sender: TObject);
       procedure miEditClick(Sender: TObject);
       procedure miReadTextFileClick(Sender: TObject);
       procedure miWriteTypeFileClick(Sender: TObject);
       procedure miReadTypeFileClick(Sender: TObject);
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovFileForm: TOrlovFileForm;
      OrlovTextFile: TextFile;
      OrlovTypeFile: File of TOrlovAuctionsRecord;

      StrOrlovTextFile: String;
      StrOrlovTypeFile:String;

      TextRecNum: integer;
      TypeRecNum: integer;

      I: Integer;
      IOEorrorNum: Integer;

     implementation

     {$R *.dfm}

     procedure TOrlovFileForm.miOpenClick(Sender: TObject);
     begin
      if OrlovOpenDialog.Execute then
      OrlovRichEdit.Lines.LoadFromFile(OrlovOpenDialog.FileName);
79