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

     end;

     procedure TOrlovRecordForm.InButtonClick(Sender: TObject);
     begin
      with VarOrlovAuctionsRecord do
       begin
        ID_Auctions :=StrToInt(ID_AuctionsEdit.Text);
        Date_U :=StrToDate(Date_UEdit.Text);
        Place    :=PlaceEdit.Text;
        Specifics :=SpecificsEdit.Text;
       end;
     end;

     Initialization
     end.//—5. Конец модуля для работы с записями.




     unit OrlovClassUnit;//—6. Модуль для работы с классами:

     Interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;

     type
      TOrlovClassForm = class(TForm)
       TObjectLabel: TLabel;
       TIdentAuctionsClassLabel: TLabel;
       TAuctionstClassLabel: TLabel;
       ExtAuctionsLabel: TLabel;
       ID_AuctionsEdit: TEdit;
       ID_AuctionsLabel: TLabel;
       Date_ULabel: TLabel;
       PlaceLabel: TLabel;
       Date_UEdit: TEdit;
       PlaceEdit: TEdit;
       SpecificsLabel: TLabel;
       SpecificsEdit: TEdit;
       PredLabel: TLabel;
       SucLabel: TLabel;
       CreateIdentButton: TButton;
       WriteIdentButton: TButton;
       ReadIdentButton: TButton;
73