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

         ID_AuctionsEdit.Text := IntToStr(GetID_Auctions);
         Date_UEdit.Text     := DateToStr(GetDate_U);
         PlaceEdit.Text    := GetPlace;
         SpecificsEdit.Text := GetSpecifics;
        end;

     end;

     procedure TOrlovClassForm.ReadExtButtonClick(Sender: TObject);
     begin
      with VarExtAuctionsClass do
        begin
         ID_AuctionsEdit.Text := IntToStr(GetID_Auctions);
         Date_UEdit.Text     := DateToStr(GetDate_U);
         PlaceEdit.Text    := GetPlace;
         SpecificsEdit.Text := GetSpecifics;
         MenegerEdit.Text := GetMeneger;
        end;
     end;
     Initialization
     end.//—6. Конец модуля для работы с классами.




     unit OrlovFileUnit;//—7. Модуль для работы с файлами:
     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs,     StdCtrls,       ExtCtrls,       ComCtrls,        OrlovRecordUnit,
Menus,OrlovAllTypeUnit;

     type
      TOrlovFileForm = class(TForm)
       OrlovOpenDialog: TOpenDialog;
       OrlovSaveDialog: TSaveDialog;
       OrlovMainMenu1: TMainMenu;
       miOrlovFile: TMenuItem;
       miOrlovTextFiles: TMenuItem;
       miOrlovTypeFiles: TMenuItem;
       miClear: TMenuItem;
       miOpen: TMenuItem;
       miSave: TMenuItem;
       miSaveAs: TMenuItem;
       miWriteTextFile: TMenuItem;
78