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

        PlaceEdit.Text     := '';   {Место}
        SpecificsEdit.Text := '';    {Специфика}
      End;
     end;

     procedure TOrlovClassForm.ClearExtButtonClick(Sender: TObject);
     begin
      Begin
        ID_AuctionsEdit.Text := IntToStr(0);{Индивидуальный номер аукциона}
        Date_UEdit.Text     := DateToStr(25/04/2006);
                             {Дата проведения}
        PlaceEdit.Text    := '';    {Место}
        SpecificsEdit.Text := '';    {Специфика}
        MenegerEdit.Text := '';       {Менеджер}
      End;
     end;

     procedure TOrlovClassForm.ModifyIdentButtonClick(Sender: TObject);
     begin
      With VarIdentAuctionsClass do
       Begin
        ID_AuctionsEdit.Text := IntToStr(999); {Ид.номер изделия}
       End;
     end;

     procedure TOrlovClassForm.ModifyAuctionsButtonClick(Sender: TObject);
     begin
      with VarAuctionsClass do
       begin
        ID_AuctionsEdit.Text := IntToStr(777);{Индивидуальный номер аукциона}
        Date_UEdit.Text      := DateToStr(25/04/2000);
                                {Дата проведения}
        PlaceEdit.Text     := 'Ростов'; {Место}
        SpecificsEdit.Text := 'Книги'; {Специфика}
       end;
     end;

     procedure TOrlovClassForm.ModifyExtButtonClick(Sender: TObject);
     begin
      with VarExtAuctionsClass do
       begin
        ID_AuctionsEdit.Text := IntToStr(6); {Индивидуальный номер аукциона}
        Date_UEdit.Text     := DateToStr(25/04/1968);
                                {Дата проведения}
        PlaceEdit.Text    := 'Москва';    {Место}
        SpecificsEdit.Text := 'Золото';   {Специфика}
        MenegerEdit.Text := 'Барыкина Е.В.';{Менеджер}
76