Объекты в Odject Pascal

          Form1.edit3.Text:='1';

          year:=1;

        end;

   end;

     if Form1.RadioButton1.Checked=true then

        begin

           if (mounth<10)and(day<10) then Form1.edit4.Text:= '0'+inttostr(day)+'.0'+inttostr(mounth)+'.'+inttostr(year)

            else if day<10 then Form1.edit4.Text:= '0'+inttostr(day)+'.'+inttostr(mounth)+'.'+inttostr(year)

                    else if mounth<10 then Form1.edit4.Text:= inttostr(day)+'.0'+inttostr(mounth)+'.'+inttostr(year)

                           else Form1.edit4.Text:= inttostr(day)+'.'+inttostr(mounth)+'.'+inttostr(year);

        end;

     if Form1.RadioButton2.Checked=true then

        begin

            ms[1]:='января';

            ms[2]:='февраля';

            ms[3]:='марта';

            ms[4]:='апреля';

            ms[5]:='мая';

            ms[6]:='июня';

            ms[7]:='июля';

            ms[8]:='августа';

            ms[9]:='сентября';

            ms[10]:='октября';

            ms[11]:='ноября';

            ms[12]:='декабря';

            if year>0 then Form1.edit4.Text:=            inttostr(day)+' '+ms[mounth]+' '+inttostr(year)+' года'

              else Form1.edit4.Text:=                    inttostr(day)+' '+ms[mounth]+' '+inttostr(abs(year))+' года до н.э.'

        end;

 end; 

procedure TForm1.Button1Click(Sender: TObject);

 begin

     Date1.Print;

 end; 

procedure TForm1.Edit1Exit(Sender: TObject);

 begin

     Date1.CheckDay;

 end; 

procedure TForm1.Edit2Exit(Sender: TObject);

 begin

     Date1.CheckMounth;

 end; 

procedure TForm1.Edit3Exit(Sender: TObject);

 begin

     Date1.CheckYear;

 end; 

procedure TForm1.FormCreate(Sender: TObject);

 begin

     Date1:=Tdate1.Create;

 end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

 begin

     Date1.Destroy;

 end; 

end.

 

    4 Диаграммы классов 
 

     

     

     

     

     

       

       

     

       
 

     

     

     

     

     

       

 

    5 Граф состояний интерфейса 

    

    

      
 
 
 
 
 
 
 
 
 
 
 
 
 

 

    6 Тестирование программного продукта 

    Тест  №1

    Цель тестирования: Проверить ход приложения при вводе корректных данных. 

    

 

    

 

    

 

    Вывод: В ходе выполнения теста №1 выявлено, что приложение работает корректно – правильно выводит дату. 

 

     Тест №2

    Цель тестирования: Проверить ход приложения при вводе некорректных данных.

1. Проверка корректности ввода дня:

 

 

2. Проверка  корректности ввода месяца:

 

 

 

 

 

      Проверка  ввода данных неправильного формата проводится с помощью исключительных ситуаций.

      Вывод: В ходе выполнения теста №2 выявлено, что в приложении предусмотрена обработка некорректного ввода данных за счет обработки исключений.