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

     end;

     function TAuctionsClass.GetDate_U : TDateTime;
     begin
      Result := Date_U;
     end;

     procedure TAuctionsClass.SetPlace(ParamPlace : String);
     begin
      Place := ParamPlace;
     end;

     function TAuctionsClass.GetPlace : String;
     begin
      Result := Place;
     end;

     procedure TAuctionsClass.SetSpecifics(ParamSpecifics : String);
     begin
      Specifics := ParamSpecifics;
     end;

     function TAuctionsClass.GetSpecifics : String;
     begin
      Result := Specifics;
     end;

     constructor TExtAuctionsClass.Create
                     (ParamID_Auctions : Integer;
                      ParamDate_U     : TDateTime;
                      ParamPlace    : String;
                      ParamSpecifics : String;
                      ParamMeneger : String
                     );
     begin
      Inherited Create(ParamID_Auctions,
                 ParamDate_U,
                 ParamPlace,
                 ParamSpecifics,
                );
      Meneger := ParamMeneger;
      with OrlovClassForm do
      MenegerEdit.Text := Meneger;
     end;

     procedure TExtAuctionsClass.SetMeneger(ParamMeneger : String);
     begin
65