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

       end;
     end;

     procedure TOrlovClassForm.WriteIdentButtonClick(Sender: TObject);
     begin
      with VarIdentAuctionsClass do
       begin
        SetID_Auctions(StrToInt(ID_AuctionsEdit.Text));
       end;
     end;

     procedure TOrlovClassForm.WriteAuctionsButtonClick(Sender: TObject);
     begin
      with VarExtAuctionsClass do
       begin
        SetID_Auctions(StrToInt(ID_AuctionsEdit.Text));
        SetDate_U(StrToDate(Date_UEdit.Text));
        SetPlace(PlaceEdit.Text);
        SetSpecifics(SpecificsEdit.Text);
        SetMeneger(MenegerEdit.Text);
       end;
     end;

     procedure TOrlovClassForm.WriteExtButtonClick(Sender: TObject);
     begin
      with VarExtAuctionsClass do
       begin
        SetID_Auctions(StrToInt(ID_AuctionsEdit.Text));
        SetDate_U(StrToDate(Date_UEdit.Text));
        SetPlace(PlaceEdit.Text);
        SetSpecifics(SpecificsEdit.Text);
        SetMeneger(MenegerEdit.Text);
       end;
     end;

     procedure TOrlovClassForm.ReadIdentButtonClick(Sender: TObject);
     begin
      with VarIdentAuctionsClass do
       begin
        ID_AuctionsEdit.Text := IntToStr(GetID_Auctions);
       end;
     end;

     procedure TOrlovClassForm.ReadAuctionsButtonClick(Sender: TObject);
     begin
      with VarAuctionsClass do
       begin
77